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VERSIONS — Continued 

1.22, 1.30, 1.40-1.43. The last 
version in each range was the "stabile" 
debugged issue of that version (though 
there may be a series of patches 
required to fix the bugs). The 
current version is 1.43. '^ ; ,• 

Versions .1.00 through 1.16 were the 
earlist versions of TurboDOS, created 
and issued when ME/M didn't work and 
MP/M-2:was a dream. As- a result, a 
proprietary form of file locking, via 
the $.L0K pseudo-file, was used and 
record lacking was^notr pdssiblei K; * 

Versions 1.20 through 1.22 wcEe the: 
first MP/M-compatible versions as 
regards file and record locking. They 
still used extended tBDOS -fiinctidn 
numbers to perform TurboDOS^ctoly 
functions, however, and many of 'tKe- 
newer CP/M and MP/M programs will not 
work because of thi^. , if ' f^,. <' ' 

Version - 1.30 . eliminated ->the 
BDOS/TurboDOS function ..i, conflict, 
greatly improved overall ' performaiice, 
and introduced the ability to ji^se' 4.6- 
bit slaves. , > * - '■■ 

Versions 1.40 and 1.41 introduced 16- 
bit masters, allowing a significant 
leap in performance, -and the/ ability 
to network with IBM-PC's. 

Version 1.42 greatly improved the 
networking capabilities of 1.41 and 
added several new functions.- ; 

Version 1.43 agai?i improved networkingf 
capabilit ies , added more , f un,ct<ions , and^f. 
increased the number of files; that may, 
be opened from a few hundred to well 
over a thousand, allowing increased 
power with database programs. , ;=j 

A system should always be upgraded to*? 
the most-recent vers io% unless there 
has been a considerable investment in 
software that will not work, under the 
newer version. 
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MTCH PROCESSING UNDER TurboDOS 

£• Roger Breton 

— Introduction ~~ 

As most of us are probably avare, the TurboDOS operating system provides an 
extremely powerful tool in DO .COM, its batch processing utility. In a nutshell, 
D0.COM will process the commands and/or program input it finds in an ASCII 
auxilliary file, known as a DO-file, just as though they had been entered 
directly from the console keyboard at run-time. In this manner, routines that 
are long, repetitive, or tedious may be performed by the system with little or 
no human interaction. 

What some may not realize, though it IS covered in th^ TurboDOS User's Guide, is 
that one or more arguments may be used to allow DO .COM to perform a task that 
has identical functions but different specifics, iuch as an edit -assemble- link- 
test process. 

Associated with D0.COM ie g utility, MTCH.COM, for background command 
processing via a dedicated slave processor in the system. This is accomplished 
through a special FIFO DO-file with the name BATCS.DO. 

In addition to TurboDOS' own utilities, D0.COM and BATCH.COM, a series of 
sixteen auxiliary utilities specifically designed for use within a DO-file to 
allow D0.COM to alter the operations performed according to a series of 
internally or externally specified conditions is introduced. Since the key to 
these utilities is conditionality, DO-f iles incorporating them are known as 
conditional DO-files, and provide another level ef utility and sheer computing 
power to the TurboDOS user. By their use, DO-files to meet virtually any 
reasnable condition may be created. 

In order to minimize verbage and confusion, all utilities mentioned herein will 
be referred to as type COM. It should be clearly understood that type CMD 
utilities, for 16-bit systems, are also provided. 

Also, since several of the command lines to %^ examplsd here use either single 
or double quotes as part of the coniBand line itself, all commands will be 
enclosed in angles <>, and will represent literal strings of the characters 
making up the coimiand, plus the terminating carriage return. Standard TurboDOS 
conventions are used, wherein capital letters are used to represent explicit 
terms and lower-case letters are used to represent non-specific generic terms. 
Braces {} are used to enclose optional terms: the h^aces themselves are not 
part of the command. 

— The DO Command — 

The batch processing utility DO .COM is executed via the following command line: 
<D0 {uud:}filename{.typ} {argl arg2 ... argH}>. As with all TurboDOS command 
lines, this represents a sort of coiq^uter "sentence," with "DO** being the verb 
and "{uud:}filename{.t3rpe}** being the object. The string of arguments may be 
taken as a collection of modifiers. 

The term "{uud:}filename{.typ}" is standard TurboDOS notation for a file 
representation, in this case the DO-file to be executed. The term "{uud:}" 
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represents an optional user/drive designation, such as the literal "4B:", in 
TurboDOS 1 ,4x format. For versions of turboDOS earlier than 1.4x, the "uud:" 
designation should be assumed to be "d:", as cross-user performance is not 
normally allowed except for global operation, even for priviledged users. Cross 
user operation is never allowed for non-privil edged users in any TurboDOS 
version, again except for global operations. If either the user code and/or 
drive letter is missing, then the current user and/or drive is assumed. The 
term "filename" represents any legal TurboDOS filename, and is NOT optional. 
The term "{.typ}" represents any legal TurboDOS filetype. If a filetype is not 
specified, type ".DO" is assumed. 

The term "{argl arg2 ... argN}" represents an argument string of zero to "N" 
arguments. There may be any reasonable number of arguments in the command, all 
of which are separated from the DO-file and each other by white space — spaces 
and /or tabs. 

— Simple DO-Files — 

In its simplest form, a DO-file is nothing more than an ASCII text file 
containing a list of command lines identical to the form they would take were 
they entered from the keyboard at each running. This may be seen by studying a 
common example, a short file backup procedure using the COPY command with its 
ARCHIVED option. In this example, we are backing up the first thirty-one users 
of drive B: (hard-disk) to drive E: (floppy disk), keeping the same user 
numbers. We ourselves will be on drive A: user 0. 

If we were to manually do this, the procedure would be as follows: 

1) Enter COPY 

2) Enter OBi. OE:;NAC 

3) Wait for the system to perform the task. 

4) Enter lBj_ 1E:;NAC 

5) Wait for the system to perform the task. 
Repeat 4) and 5) for users 2 through 29. 

62) Enter 30B: 30E:;NAC 

63) Wait for the system to perform the task. 

64) Enter a carriage return. 

And we are done! Except, of course, for any floppy disk changes required, which 
would have to be done in any case. 

Had we created a DO-file, DAILY .DO, to do the \«)rk for us, our procedure would 
have become: 

1) Enter DO DAILY 

2) Wait for system to perform all the tasks. 
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DONE! 

DAILY. DO would consist of the following: 

COPY 

OB: OE:;NAC 
IB: 1E:;NA.C 
2B: 2E:;NAC 

• • • 

28B: 28E:;NAC 

29B: 29E:;NAC 

30B: 30E:;NAC 
<cr> 

Notice that the commands are exactly as we would have entered them manually, 
including the final solo carriage return. 

Creation of the DO-file is simplicity itself. Using any text editor or word 
processor, we would have simply entered our commands one at a time, just as we 
would have entered them had we been actually running them. If Wordstar or other 
word processor were used, it should have been used in the non-document mode, 

— Cascading DO-Files — 

One DO-file may call another. The companion to DAILY, DO above is WEEKLY. DO. 
Were a weekly backup to be performed, the attributes of all files on user areas 
through 31 of drive B: would have first been set to non-archived, then the 
normal daily backup would have been performed. This might have been done via 
the following DO-file, WEEKLY .DO: 

SET 

OB:;N-A 

1B:;N-A 

2B:jN-A 

... 

28B:;N-A 

29B:;N-A 

30B:;N-A 

<cr> 

DO DAILY 

Please note that WEEKLY .DO ends with the command <D0 DAILY>. Therefore, 
entering the command <D0 WEEKLY> would have caused all the commands in WEEKLY .DO 
to be executed, including the execution of the command <D0 DAILY>, which would 
have then caused all the commands in DAILY .DO to be executed! Both DO-files 
would be executed via a single command! 

There is no fixed limit on the number of DO-files that may be cascaded, the 
limit depends upon the memory available for the DO-file command stack, and A. DO 
may call B.DO, which may call C.DO, which may call D.DO, etc. In a similar 
manner, A.DO may call B.DO and C.DO and D.DO from the same original file, or may 
call B.DO five times, or whatever. 

There is only one restriction on the cascading of DO-files, and that is for a 
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DO-file calling itself. Since TurboDOS keeps track of which DO-file calls 
which, a DO-file calling itself will quickly build up a nest of pointers, and 
can easily get completely out of hand. Therefore, when a DO-file calls itself, 
the line doing the calling should NOT end with a carriage return (which is 
really a carriage return/ linefeed pair), but rather end with a linefeed only. 
This will trick TurboDOS into NOT creating another stack entry for the same DO- 
file. 

As an example of this in action, suppose we were to be creating a new utility, 
UTILITY.COM, and knew ahead of time that it would take many iterations until it 
was just right. We might create first the following DO-file, UTILITY .DO: 

WM UTILITY .MAC 

M80 UTILITY, UTILITY=UTILITY 

GEN UTILITY.COM 

UTILITY 

<cr> 

UTILITY 

DO UTILITY<lf> 

An analysis of the above shows that first we would enter the text editor WM.COM 
(Wordmaster) and edit the file UTILITY. MAC, which is our souce code for 
UTILITY.COM. Wordmaster takes its input ONLY from the keyboard (some other text 
editors do not), and will function perfectly in this context. 

After editing our source code, we exit Wordmaster, whereupon the DO-file would 
promptly assemble our source code with the command M80 UTILITY, UTILITY=UTILITY, 
which would create the files UTILITY. REL and UTILITY. PRN. 

The DO-file would then use GEN.COM, TurboDOS's own linker (and a very good one!) 
to link UTILITY. REL into UTILITY.COM. Since there is no UTILITY. GEN file, 
GEN.COM would go interactive, and would take the name of the REL-files to be 
linked from the DO-file. In this case, there is only one REL-file, UTILITY, 
followed by a solo carriage return to exit the interactive mode. 

After UTILITY.COM has been linked, it would be tested by entering the command 
UTILITY. We would then note any possible errors in performance. 

As expected, we would then be placed back into Wordmaster by having UTILITY. DO 
call itself. This process might be repeated indefinitely if the command <D0 
UTILITY> is NOT ended with a carriage return (a linefeed is used instead); 
TurboDOS would then keep only ONE stack entry, no matter how many iterations 
were made. 

Once everything was finally correct with UTILITY.COM, we would exit from the DO- 
file by entering an attention-abort sequence, typically BREAK/ control-C. We 
would then be left with UTILITY .MAC, our corrected source code; UTILITY. PRN, our 
assembly print file; UTILITY. REL, our relocatable object code module; and 
UTILITY.COM, our finished command file. 

— DO-File Program Input — 

In all of our examples thus far, a command file was shown taking its input 
directly from the DO-file. Were we, in a normal manner, to enter the command 
line <COPY>, the command file C0PY.COM would be loaded into memory and we would 
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find ourselves in interactive mode, operating from inside the command file 
itself (asterisk prompt) rather than at the operating system level (TurboDOS 
prompts such as OA}). We would then enter our sub-commands one at a time until 
we were finished, whereupon we would exit the interactive mode by entering a 
null sub-conHoand (solo carriage return). 

There is absolutely no difficulty encountered in making these entries from the 
DO-file. Simply remember to put everything in the DO-file in the exact order 
you would enter it directly: do not forget any solo carriage returns. 

In the UTILITY. DO example above, we noted that Wordmaster took its input solely 
from the keyboard, whereas Wordstar and many other word processor and text 
editors would take their input from the DO-file. What makes this difference and 
how would we know? The difference as to whether a program wixx accept input 
from a DO-file, or will only accept input from the keyboard depends solely on 
how that program is written. Assuming the program was written in assembly 
language and it uses the standard console input functions, C-functions 2 and 10, 
as the input means, then it will also accept input from the DO-file. If, on the 
other hand, it uses the direct console I/O function, C-function 6 (and that only 

iu me get Cumuj.ncu StauUS/ xupui. mCuc/, ao v.wuouj.e ^u^v»b , bucu J.*, m^t-j, Ji\j^ 

accept input from a DO-file, and input MUST come from the console. Wordmaster 
falls into this latter category, while Wordstar is of the former type. 

How can we tell into which category a given program will fall? Alas, there is 
no way other than to test the program in a DO-file. Fortunately, such a test is 
very rapid and easy to make. 

— DO-File Arguments — 

Looking back at UTILITY .DO, we see it as it originally was: 

WM UTILITY. MAC 

M80 UTILITY, UTILITY=UTILITY 

GEN UTILITY.COM 

UTILITY 

<cr> 

UTILITY 

DO UTILITY<lf> 

Since the purpose of this DO-file was to edit, assemble, link and test a new 
utility, it would be much more useful if it would handle any new utility. We 
may do this by changing every "UTILITY" in the DO-file into an argument. Since 
the argument is always the same, they will all be the same argument. The new 
DO-file, which we'll call EALT.DO (after the initials of the functions 
involved), would now look like: 

WM {1}.MAC 

M80 {1},{1}={1} 

GEN {1}.C0M 

{1} 
<cr> 

{1} 

DO {l}<lf> 

Assuming that we are still working on the program UTILITY.COM, we would execute 
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our new DO-file with the command <D0 EALT UTILITY>. In the command line, "DO" 
is the command itself, "EALT" is the name of the DO-file to be executed, and 
"UTILITY" is the first (and only) argument, which will replace every occurance 
of "{1}", the first argument place marker, in the DO-file. 

In order to do this replacing, a temporary DO-file, EALT.DO$, is created on-the- 
fly and contains all the replacements. It is this temporary DO$-file that is 
executed. The DO$-file is deleted after execution, unless, of course, you 
attention-abort out, as with our example, in which case we would have to 
manually delete it. 

Any reasonable number of arguments may be used. Looking at our DAILY. DO example 
above, we may increase the flexibility to any hard-disk drive. A:, B:, C: or D:, 
backed up to either floppy drive, E: or F:, by making the DO-file contain two 
argument s : 

COPY 

0(1}: 0{2}:;NAC 
1{1}: 1{2}:;NAC 
2{1}: 2{2}:;NAC 

• • • 

28{1}: 28{2}:;NAC 

29U}: 29{2}:;NAC 

30{1}: 30{2}:;NAC 
<cr> 

To use this DO-file to back up hard-disk drive C: to floppy drive F:, we would 
execute the command <D0 DAILY C F>. 

It is important for us to remember that the substituted arguments are truly 
substituted, and that argumented DO-files are cascaded as easily as any others 
if planned properly. Witness our example WEEKLY. DO file converted to arguments: 

SET 

0{1}:;N-A 
1{1>:;N-A 
2{1}:;N-A 

• • • 

28{1}:;N-A 

29{1}:;N-A 

30{1}:;N-A 

<cr> 

DO DAILY {1} {2} 

By making the <D0 DAILY> command <D0 DAILY {1} {2}>, we will cascade the 
arguments into the DAILY .DO file. 

— Arguments with Spaces — 

Normally, the arguments are separated by spaces in the command line. 
Occasionally, some argument may appear that in itself requires spaces. Suppose 
the DO-file RUNBAS.DO contains the command line <MBASIC {1}>. The argument 
would usually be the name of a file of type BAS. An execution command might be 
<D0 RUNBAS AR> where "AR.BAS" is the name of an MBASIC accounts receivable 
program. 
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Let us assume, however, that the AR.BAS file itsel£ has some argument or switch 
involved, such as "$512" for 512-byte records. In this case, the execution 
command should be <D0 RUNBAS AR $512>, but this won't work, as only "AR" would 
be taken as the first argument, and "$512" would be taken as the second argument 
and, since no second argument is called for, "$512" would be ignored. 

The solution is both simple and elegant: enclose the argument in single or 
double quotes! The correct command line would be either <D0 RUNBAS 'AR $512'> 
or <D0 RUNBAS "AR $512">. Why either single or double quotes? In case the 
argument called for should contain quotes within itself: in the command <D0 
DOFILE '"TEST"'> the argument is "TEST" (quotes included), not TEST. 

— Defaulted DO-File Arguments — 

When creating argumented DO-files, we often run across the situation where the 
argument is normally a specific value, and only occasionally a differing one. 
In this case, we may use defaulted arguments. Using our trusty DAILY .DO again, 
let us assume that almost all our work is done on hard-disk drive B:, and that 
we almost always back up to floppy drive E:: The other hard-disk drives are for 
special use, seldom changed (hence seldom backed up), and floppy drive F: is a 
5-1/4" floppy only rarely used. In this case, we could make our DAILY .DO file 
look like: 

COPY 

0{1,B}: 0{2,E}:;NAC 

1{1,B}: 1{2,E}:;NAC 

2{1,B}: 2{2,E}:;NAC 

... 

28{1,B}: 29{2,E}:;NAC 

29{1,B}: 29{2,E}:;NAC 

30{1,B}: 30{2,E}:;NAC 

<cr> 

We now have maximum flexibility. Should we wish to backup B: to E: (normal), we 
simply enter the command <D0 DAILY ">. The " is two single-quotes togther, 
and causes a NULL ARGUMENT to be entered, A null argument may be either two 
single-quotes or two double-quotes. A null argument is still an argument, and 
AT LEAST ONE ARGUMENT MUST BE ENTERED if defaulted arguments are used. This 
triggers TurboDOS to make the DO$-file required. The command <D0 DAILY> is NOT 
acceptable, as no DO$-file would be created and TurboDOS would try to run the 
DO-file as it stands. 

In a like manner, if we wished to backup drive D: to drive E:, the command could 
be <D0 DAILY D>. Since "D" is a valid argument, the DO$-file will be created 
and the second argument will assume its defaulted value. 

To backup drive C: to drive F: the command <D0 DAILY C F>, with both arguments, 
is required, but to backup drive B: to drive F:, either <D0 DAILY B F> or <D0 
DAILY "" F> may be used. The former uses explicit arguments, while the latter 
uses a null argument for the first argument, causing the default, "B", to be 
substituted. 



TurboDOS Users Group Newsletter, Volume 3, Number 1, =================== Page 10 

— Background Batch Processing — 

TurboDOS has a very simple yet elegant method of using its DO, COM utility to 
perform time-consuming operations not requiring human intervention as a 
completely invisible background process. This is through the use of a dedicated 
processor, the special FIFO DO-file BATCH. DO, and the utility BATCH.COM. 

For most systems, the key issue here is the dedicated processor. Before 
throwing up your hands, however, and saying that hardware costs prohibit using 
backgroud batch processing, please bear in mind that time consuming processes, 
such as a Dataflex re-index operation or some large sort routine, may take hours 
to run, and represent lost time on the terminal upon which they are done. The 
cost of an additional slave processor might well be quickly realized in the 
savings of lost operator time. Even some relatively trivial function such as 
copying floppies onto the hard disk take considerable operator time, and can be 
better relegated to a background process. 

To set up the background processor, install a slave with its own OSSLAVEx.SYS 
file, patching its AUTUSR parameter to 80 so it will automatically boot 
priviledged to user of drive A:, and its WARMFN to 00, "BATCH ","AUT" so it 
will warmstart to the file BATCH.AUT. A console on the slave is not required. 
In fact, since it is priviledged, a console should be avoided. 



Create BATCH.AUT with the command line <AUTOLOAD |D0 BATCH\RENAME AUTOLOAD .AUT 
BATCH. AUT\SET BATCH.AUT ;GR>. Note that there are really three commands in this 
command line, and that the new file BATCH.AUT is set global and read-only. 

The next step is to create the special FIFO DO-file BATCH.DO. A FIFO (First-In- 
First-Out) file is a very special file type supported by TurboDOS, having always 
a fixed number of records set at the time the file is created and accessing 
those records on a strictly first-in-first-out basis. A FIFO file is somewhat 
like a Unix "pipe," and is much like placing marbles in a real pipe. The first 
marble in is the first out the other end. The pipe will be able to contain a 
specific number of marbles at one time, which is analogous to the length (number 
of records) of a FIFO. 

The subject of FIFO files cannot be covered in detail here, but that shouldn't 

stop us from being able to create BATCH.DO and successfully use it. We create 

BATCH.DO with the command <FIFO BATCH.DO, then answer the following questions 
as they appear on the screen (our entries are underlined ) : 

FIFO file not found, creating new file 
Enter FIFO type (Ram/Disk) : D 
Suspend processing on full/empty (Y/N): Y 
Enter maximum number of records (1-65535): 200 
FIFO file created 

Taking each question in turn, the body of a FIFO-file may be RAM- (memory-) 
resident or Disk-resident. RAM-resident FIFO's are much faster, but limited to 
a maximum of 127 records (usually much less), and the benefits of RAM-resident 
FIFO's are not usually realized in BATCH.DO. 

A FIFO is "empty" when none of its records contain current data, and "full" when 
all contain current data. When a fifo is empty, it cannot be read (nothing left 
to read), and when it is full it cannot be written (no room to write). Under 
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such conditions, attempting to access the FIFO will produce either a suspension 
of operation until the read or write can take place or an error message will be 
returned dropping the processor to the operating system level. Since we have no 
console on our processor, we need to suspend operation. 

The size or length of a FIFO-file is counted in records. Each record of 
BATCH. DO represents one command line that may be "piped" into the FIFO. Command 
lines will be written in at one end and read out of the other in a steady 
stream, therefore, there should be enough records allocated to allow the largest 
desired "queue" of command lines to be contained. The length of time for any 
single command line to be processed is, of course, dependent upon the operations 
to be performed. 

Please bear in mind that we are speaking of command lines here, not commands. 
One command line may contain many commands, and a single command may be the 
execution of a DO-file consisting of any reasonable number of commands. 

After BATCH. DO has been created, it must be located on user area of drive A: 
and must be set global. Do NOT set it read-only. 

After rebooting, the dedicated slave will attempt to process BATCH. DO, which 
will be empty. The dedicated slave will then suspend operation (wait) until a 
command line is written to BATCH. DO, whereupon it will immediately process the 
command line, then wait for the next. 

Command lines are written to BATCH. DO from anywhere on the system by the 
BATCH. COM utility. You need not be priviledged to send a command line to 
BATCH. DO. As an example, the command line <BATCH SORT FILA.DAT ISORT 
FILB.DATlSORT FILC.DAT>, when executed from user 5 of drive C:, sends BATCH.DO 
this command line <5C;\S0RT FILA.DAT\SORT FILB.DAT\SORTC.DAT>. Notice that the 
first command is <5C:>, which will immediately move the dedicated slave's 
operation to the local drive and user, so the operator need not be priviledged 
and so it will operate on the local files, just as the operator would. Also 
notice that all vertical bars "I" have been converted to backslashes "V", 
TurboDOS' standard command separator. 

For those who need more than one background process, it is very easy to modify 
BATCH.COM for files other than BATCH.DO. To make a "BATCHl" system, copy 
BATCH.COM to BATCH1.COM, use the M0NIT0R.COM utility to modify BATCH1.COM as 
follows: 

Enter MONITOR 

Enter LBATCHl .COM 

Enter WOO 42 41 54 43 48 20 20 20 44 4F 20 00 00 GO 00 

This will return an address "nnnn". Enter Ennnn 

Respond to the "E" command as follows: 

nnnn: 00 = <cr> 

nnnn: 42 = <cr> 

nnnn: 41 = <cr> 

nnnn: 54 = <cr> 
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nnnn: 43 = <cr> 



nnnn : 48 


= <cr> 


nnnn : 20 


= 31<cr> 


nnnn: 20 


= <esc> 



Enter SBATCHl .COM 

Exit MONITOR by entering Q^ 

BATCH1.COM has been modified. Create the background process exactly as 
previously described, substituting "BATCHl" for every occurance of "BATCH". Use 
BATCH1.COM to access the processor. 

— Conditionality in DO-Files — 

What is meant by conditionality in DO-files? Simply speaking, a DO-file is 
conditional if it changes function or operation according to the conditions that 
exist at the time of execution of the various commands within the the DO-file. 
A considerable number of TurboDOS's utilities are conditional in some form. The 
command <COPY B: E:;NAC> will copy each of the files on drive B: to drive E: IF 
AND ONLY IF the Archived attribute on that file is set. In other words, only 
those files with the Archived attribute set will be copied. This is clearly a 
conditional operation. 

Because of this, our DAILY .DO and WEEKLY. DO examples above may be said to be 
conditional DO-files, and truly are. If this is the case, however, why is so 
much of this article devoted to conditionality and what is all this brouhaha 
about conditional DO-files and the conditional utilities in the first place? 
The difference is in implicit and explicit conditionality. 

A large number of TurboDOS utilities, as stated above, have some implicit 
conditionality. The conditional utilities presented here, however, were 
specifically written to provide conditionality in a direct, explicit manner. 

— Conditional Utilities — 

There are sixteen utilities presented here: six were created as explicit 
conditionals and ten were created to support the six conditionals, though two 
are so basic to use with DO-files in general that they could hardly be classed 
as conditional support utilities. 

The early forms of these utilities were presented as part of my now-defunct 
TurboTOOLS utility/module set, and were so popular that they have been 
considerably expanded, improved and updated and are here in version 2.20. All 
are presented in both 8- and 16-bit versions, and will operate under TurboDOS 
version 1.22 and later. 

The six explicitly conditional utilities are divided into three pairs: one 
pair, IFFIL and IFNOTFIL, for the execution of a command string based upon the 
presence of a specified file; one pair, IFUSR and IFNOTUSR, for the execution of 
a command string based upon the presence of files on a given user area of a 
given drive; and one pair, IFCHR and IFNOTCHR, for the execution of a command 
string based upon the matching of an argument. The ten support utilities are 
divided into three pairs and four singles: one pair, CRFIL and CRFILYES, for 
the creation of dummy (zero-K) files for use by IFFIL and IFNOTFIL; one pair. 
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DLFIL and DLFILYES, for the deletion of dummy files; one pair, ENDDO and 
ENDDOYES, for the premature termination of a DO-file; one single, DOHALT, to 
force the halting of the operation of a DO-file to allow human interaction; one 
single, PROMPT, for the display of a special message file on the console screen; 
one sinsle CLS for the clearin**' of the console screen and one sin**le BEEP 
used to beep the console three times as an operator-alert signal. Each of these 
sixteen utilities is described in detail later. 

— Basic Command Syntaxes — 

As would be expected in an integrated package, the command syntax for each of 
the sixteen utilities is related. The command syntaxes are: 

IFFIL testfiie commandlist 

IFNOTFIL testfiie commandlist 

IFUSR uud: commandlist 

IFNOTUSR uud: commandlist 

IFCHR tchr mchr commandlist 

IFNOTCHR tchr mchr commandlist 

CRFIL zerofile 

CRFILYES zerofile {; prompt string} 

DLFIL zerofile 

DLFILYES zerofile {; prompt string} 

ENDDO 

ENDDOYES {;promptstring} 

DOHALT {;prompt string} 

PROMPT dispfile 

CLS 

BEEP 

— Designating File Names — 

As can be readily seen, a majority of the utilities specify some file be 
entered, either "testfiie", "zerofile" or "dispfile". All of these are to be 
entered in the standard TurboDOS file name format of "{uud: }f ilename{.typ}". 
The filename is not optional and must be explicit: wildcards, "?" or "*", are 
not allowed. The user area/drive code designator and/or filetype are optional, 
with the current user area, current drive and/or a null filetype assumed as 
default. 
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A note about the user area/drive code designator "uud:": this is the TurboDOS 
1 .4x designator, and should be taken to mean "d:" for versions 1,22 and 1.30. 
As a result, cross-user performance is not allowed except in TurboDOS 1.4x. 
This is because 1 .4x has a quite clever method of parsing the user code upon 
which these utilities depend. As is always the case, "{uud:)" may be taken to 
mean that either the user area or the drive or both are optional. The current 
user area and/or drive will be understood as default for any missing parameter. 

It must be pointed out that IFUSR and IFNOTUSR require BOTH the user code 
(except for versions 1.22 and 1.30) AND the drive to operate. If either is 
missing, an error will occur. 

— The Command List — 

The six explicit conditional utilities require a command list "coramandlist" to 
operate, if "commandlist" is missing, an error will occur. "Commandlist" may be 
a list of one or more commands in the form <{|}command (Icommand {Icommand 
{...}}}> where "command" is any legitimate TurboDOS command, with all required 
options, etc. The vertical bar "I" is used as a command separator, and is 
converted to the conventional backslash "\" prior to execution. In version 1 .4x 
only, if the command list begins with a command separator, then the commands 
will not be echoed to the console as they are run. 

Provisions have been made for the nesting of multiple IFFIL, IFNOTFIL, IFUSR, 
IFNOTUSR, IFCHR and IFNOTCHR command strings: the first (outer) nest must have 
a single separator character, "I"; the second nest a double separator character, 
"II"; the third nest a triple separator character, "III"; etc. The following 
example would process as shown: 

1 2 3 4 5 6 7 

I II II II 

OA}IFCHR A A BEEP | IFCHR B B BEEP | | IFCHR C C BEEP I I I BEEP 

Breaking this down, the primary command at #1, IFCHR, will run the following 
command line: 



OA} BEEP \ IFCHR B B BEEP | IFCHR C C BEEP I I BEEP 

Notice that the single special separator "|" has become a standard TurboDOS 
separator "\", the double special separator "II" has become a single " |", and 
the triple special separator "III" has become a double " | I". In actual fact, 
the leading special separator in any muliple group will have been replaced by a 
space. 

Notice also that command #2 is separated from the "OA}" prompt by four spaces. 
These four spaces are an overwrite of the "A A " parameters, and are a result of 
the method I chose to process the command string. Since leading spaces have no 
effect on a command, command #2 will operated as desired. 

Running the entire line will produce the operation depicted below, the dash- 
numbers at the extreme right being the number of the command being executed: 

0A}IFCHR A A BEEP | IFCHR B B BEEP j I IFCHR C C BEEP I I I BEEP — 1 
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OA} BEEP —2 

0A}IFCHR B B BEEP llFCHR C C BEEP I | BEEP —3 

OA} BEEP —4 

0A}IFCHR C C BEEP I BEEP —5 

OA} BEEP —6 

OA}BEEP —7 

The maximum length of the conmaQd line, count lug all spaces, is 12u characters 
after the initial command. To emphasize this, graphically the maximum length of 
the command line is depicted below: 

|< 126 characters absolute maximum >| 

I I 

uA/j.rv^tm A A JMLriF ixrouR B d oxuiur \ ixronK u \-. DCisLr i i ix>£i£ur 

The reason for this is that that 126 characters will comprise the command tail 
for the original command, and this command tail must fit into the 128-byte 
default DMA buffer at address 0080 (DS:0080 for 16-bit), with its actual length 
as a leading byte and an ACSII null as a trailing byte. A longer command list 
will be truncated by TurboDOS. 

— The Prompt string — 

Four of the conditional- support commands, CRFILYES, DLFILYES, ENDDOYES and 
DOHALT, allow an optional "prompt string" to be entered. Each of these four 
commands cause a string of text, the prompt string, to be displayed, and will 
halt the DO-file until a keyboard input is provided. With the exception of the 
DOHALT file, any character except a "Y" or "y" will be assumed to be an "N", and 
the specified action will not occur, allowing the DO-file to continue unchanged. 

The prompt string displayed by these four commands will be a default prompt 
peculiar to each command, unless the optional "prompt string" is specified. 
"Promptstring" may be any sting of printable ASCII characters except the 
backslash "\", which TurboDOS would interpret as the end of the command, and the 
dollar sign "$", which the utility would interpret as the end of "promptstring". 
Due to the way in which TurboDOS parses commands, all lower-case letters will be 
converted to upper case. Note that "promptstring" is considered an option, and 
must start with a semicolon ";". 

Two special characters are designated for use in the first position, or, if both 
special characters are used, the first two positions after the semicolon. These 
special characters are the circumflex "*", which will cause the console screen 
to clear, and the asterisk "*", which will cause the console to NOT beep (a beep 
is the standard default). If these are the only characters in "promptstring" 
the default prompt will be displayed with screen dlearing and/or console 
silencing. This may be best depicted in table form, where "xxxxx" represents 
the text of "promptstring": 
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Promptstring 



Clear 



Bell 



Prompt 



None or ; 

* 

-* or ;*" 

xxxxx 

"xxxxx 

*xxxxx 

'^*xxxxx or ;*'^xxxxx 

It is very important to watch your chracters carefully, especially trailing 
spaces or tabs, as "j"^*" will clear the screen and display the default prompt 
without sounding the bell, while ";"* " will clear the screen and display a 
space without sounding the bell. The space is not visible, therefore it is an 
effective null prompt. 



No 


Yes 


Default 


Yes 


Yes 


Default 


No 


No 


Default 


Yes 


No 


Default 


No 


Yes 


Promptstring 


Yes 


Yes 


Promptstring 


No 


No 


Promptstring 


Yes 


No 


Promptstring 



The maximum length of "promptstring" is 76 characters, not counting the 
semicolon, the circumflex or the asterisk. Please bear in mind that if the 
command using "promptstring" is itself part of "commandlist" discussed 
previously, the 126-byte total length still applies. 



Utility Pairing — 

As has been mentioned, most of these utilities are paired: IFFIL and IFNOTFIL; 
IFUSR and IFNOTUSR; IFCHR and IFNOTCHR; CRFIL and CRFILYES; DLFIL and DLFILYES; 
and ENDDO and ENDDOYES. This pairing is accomplished by having both members of 
a pair identical except for one patchable byte. When this byte is 00 hex, the 
first member of the pair is chosen, and when not 00 hex, the second member. 
This patchable byte is always located at address 0103 for 8-bit utilities and 
DSiOlOO for 16-bit. A table of the patches is: 



Patch = 


00 


Patch <> 00 


IFFIL 




IFNOTFIL 


IFUSR 




IFNOTUSR 


IFCHR 




IFNOTCHR 


CRFIL 




CRFILYES 


DLFIL 




DLFILYES 


ENDDO 




ENDDOYES 



By the use of this pairing technique a great reduction in the number of source 
code files is achieved, as well as a simplification of the linking process. 

— Console Screen Clearing — 

The utilities CRFILYES, DLFILYES, ENDDOYES, DOHALT, PROMPT and CLS have the 
ability to clear the console screen. This is accomplished via a twelve-byte- 
maximum string of characters in a special patch area of the utilities. This 
twelve-byte string consists of the characters necessary to home the cursor and 
clear the screen, with the remaining bytes padded with dollar signs (code 24 
hex, 36 decimal). The default is a control-Z (code lA hex, 26 decimal) and 
eleven dollar signs, as this sequence will clear most terminals. Patch the 
console clear-screen strings to the codes required by your terminals. 
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The locations of the first byte of the clear-screen strings for the above 
utilities are address 0104 for 8-bit utilities and DS:0101 for 16-bit. 

— Conditional Utility Operation — 

The file-conditional utilities, IFFIL and IFNOTFIL, have been created to execute 
a command list based upon the presence of a file. The syntaxes and operations 
of these utilities are: 

IFFIL testfile commandlist 
"Commandlist" will be executed IF AND ONLY IF "testfile" exists. 

IFNOTFIL testfile commandlist 

"Commandlist" will be executed IF AND ONLY IF "testfile" does not exist. 

The user-conditional utilities, IFUSR and IFNOTUSR, have been created to execute 
a comniand list based upon the assignment of files to a specific user area of a 
specific drive. The syntaxes and operations of these utilities are: 

IFUSR uud: commandlist 

"Commandlist" will be executed IF AND ONLY IF there are files assigned to user 
area/drive "uud:". 

IFNOTUSR uud: commandlist 

"Commandlist" will be executed IF AND ONLY IF there are no files assigned to 
user area/drive "uud:" 

The argument -conditional utilities, IFCHR and IFNOTCHR, have been created to 
execute a command list based upon matching of a test character to a character 
entered into the DO-file as an argument. The syntaxes and operations of these 
utilities are: 

IFCHR tchr mchr commandlist 
"Commandlist" will be executed IF AND ONLY IF "tchr" is identical to "mchr". 

IFNOTCHR tchr mchr commandlist 

"Commandlist" will be executed IF AND ONLY IF "tchr" is not identical to "mchr". 

The test character, "tchr", and the match character, "mchr", may be any single 
printable ASCII character legal in a file name, as TurboDOS' filename parsing 
facility is used. Normally, an alphanumeric character should be used and 
punctuation marks avoided. Lower-case characters are automatically converted to 
upper-case by TurboDOS. If more than one character is entered for either "tchr" 
or "mchr", only the first character is relevant. 

In normal use, "tchr" is directly entered and "mchr" is indirectly entered, as 
in the DO-file command line <IFCHR D {2} ICOPY B:*.DAT;NCA|COPY B:*.MAS;NCA>. 
The command list "ICOPY B:*.DAT;NCA|COPY B:*.MAS;NCA" will be converted to 
"\COPY B:*.DAT;NCA\COPY B:*.MAS;NCA" and executed IF AND ONLY IF the second DO- 
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file argument is "D", In actual practice, "tchr" and "mchr" are completely 
interchangable. The command <IFCHR {2} D ICOPY B;*.DAT;NCA|COPY B:*.MAS;NCA> is 
identical to the previous one. 

— Support Utility Operation — 

The support utilities consist of two files to create a dummy file, two to delete 
a dummy file, two to terminate the DO-file, one to halt the DO-file, one to 
display a special prompt file, one to beep the console, and one to clear the 
console screen. 

The dummy-file creation utilities, CRFIL and CRFILYES, will create a dummy or 
zero-K file (one that has no contents). While the principal use for a dummy 
file is as a test file for IFFIL or IFNOTFIL, it is also suitable for use 
wherever an empty file is required, as in a clean SYSLGG.SYS file to use with 
the log-on/ log-off procedures. Should a file of the selected name already exist 
at that user area/drive, or if for any reason a file creation cannot take place 
an error will be displayed and the utility aborted. The syntaxes and operations 
of these utilities are: 

CRFIL zerofile 

"Z-erof ile" will be created. 

CRFILYES zerofile <;prompt string} 

"Zerofile" will be created IF AND ONLY IF the response to "prompt string" is "Y". 
If "prompt string" is not specified, then the default prompt of "Okay to create 
(zerofile) at this time?" will be used. 

The dummy-file deletion utilities, DLFIL and DLFILYES, will delete a dummy or 
zero-K file. Should a file of the selected name not already exist at that 
user/drive, should it not be empty, should it be set read-only or FIFO, or if 
for any reason a file deletion cannot take place an error will be displayed and 
the utility aborted. The syntaxes and operations of these utilities are: 

DLFIL zerofile 

"Zerofile" will be deleted. 

DLFILYES zerofile {jpromptstring} 

"Zerofile" will be deleted IF AND ONLY IF the response to "prompt string" is "Y". 
If "prompt string" is not specified, then the default prompt of "Okay to delete 
(zerofile) at this time?" will be used. 

Please note that the DLFIL and DLFILYES utilities are completely different from 
the TurboDOS utility DELETE.COM, as they will only act upon a dummy (zero-K) 
file. 

The DO-file termination utilities will cause a termination of the DO-file, and 
all pending or stacked DO-files, running on that processor. There is no effect 
on DO-files on other processors. These utilities may be used to abort a DO-file 
as the result of a conditional judgement. The syntaxes and operations of these 
utilities are: 
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ENDDO 

Terminate all pending and stacked DO-files, 

ENDDOYES {; prompt string} 

Terminate all pending and stacked DO-files IF AND ONLY IF the response to 
"promptstring" is '*Y". If "promptstring" is not specified, the default prompt 
of "Okay to terminate DO-file at this time?" will be used. 

The DO-file operation suspension utility, DOHALT, will cause the operation of a 
DO-halt to stop and wait for a console input. The syntax and operation of this 
utility is: 

DOHALT {;promptstring} 

"Promptstring" is displayed and the DO-file is halted pending keyboard input. 
If "promptstring" is not specified, the default prompt of "DO-file halted, press 
any key to continue." will be used. 

The prompt-file display utility, PROMPT, will cause a the contents of a special 
prompt-file to be displayed. The syntax and operation of this utility is: 

PROMPT dispfile 

The contents of "dispfile" are displayed. "Dispfile" is an ordinary text file 
with a few special features and limitations. It is perhaps easiest to think of 
this file as a sort of super-prompt string, as the circumflex and/or asterisk are 
used in the identical manner (first two bytes of the file) to provide screen 
clearing and/or suppress the bell. The limitations are basically length and 
function: the file miay not exceed 2048 bytes (2K) total length, and to be 
functional must not contain more lines of data than can be displayed on the 
console. 

The screen-clearing utility, CLS, simply clears the screen. Entering the 
command <CLS> is the only mode of operation. 

The operator-alert utility, BEEP, is also a single-mode command utility, the 
command being <BEEP>. When used, this utility will make the console beep three 
times at about one-half second intervals. This beeping provides a clear and 
distinct signal to alert the operator that interaction is required or that the 
DO-file is finished. 

— A Simple Working Example — 

As a simple working example, let's make a trivial BACKUP .DO file which may be 
used for either backing-up or restoring in a system with four logical hard-disk 
drives and two floppy drives. The secret to this file depends on the knowledge 
that the hard-disk drives are drives A:, B: , C: or D: and that the floppy-disk 
drives are E: and F:, Whether we are backing-up or restoring, therefore, may be 
determined by comparing the desired drives. 



Our finished DO-file will be normally executed via the simple command <D0 BACKUP 
dl d2 {W}> where "dl" is the source drive, "d2" is the destination drive and "W" 
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is the WEEKLY BACKUP switch, which is valid only if a backup, rather than a 
restore, is being done. Our DO-file is created as follows: 

Determine if we have a BACKUP or a RESTORE: if neither, abort out. 

IFCHR A {1} CRFIL B.$ 
IFCHR B {1} CRFIL B.$ 
IFCHR C {1} CRFIL B.$ 
IFCHR D {1} CRFIL B.$ 
IFCHR E {1} CRFIL R.$ 
IFCHR F {1} CRFIL R.$ 
IFNOTFIL B.$ IFNOTFIL R.$ ENDDO 



If we have a BACKUP, is it legal? If no, abort out. 



IFFIL B.$ IFCHR E {2} CRFIL T.$ 
IFFIL B.$ IFCHR F {2} CRFIL T.$ 
IFFIL B.$ IFNOTFIL T.$ DLFIL B.$lENDDO 
DLFIL T.$ 



Same thing for a RESTORE. 



IFFIL R.$ IFCHR A {2} CRFIL T.$ 
IFFIL R.$ IFCHR B {2} CRFIL T.$ 
IFFIL R.$ IFCHR C {2} CRFIL T.$ 
IFFIL R.$ IFCHR D {2} CRFIL T.$ 
IFFIL R.$ IFNOTFIL T.$ DLFIL R.$|ENDDO 
DLFIL T.$ 



Do the actual BACKUP or RESTORE for all 32 users by calling a subordinate DO- 
file BACKUPX.DO. 



IFUSR 0{1>: DO BACKUPX {1} {2} {3,(3} 

IFUSR Hi}: DO BACKUPX {1} {2} {3,(3} 1 

IFUSR 2{1}: DO BACKUPX {1} {2} {3,@} 2 

... (Repeat command line for users 3 through 28) 

IFUSR 29 {1}: DO BACKUPX {1} {2} {3,@} 29 

IFUSR 30 {1}: DO BACKUPX {1} {2} {3,@} 30 

IFUSR 31 {1}: DO BACKUPX {1} {2} {3,@} 31 



Clean up after ourselves. 



IFFIL B.$ DLFIL B.$ 
IFFIL R.$ DLFIL R.$ 
BEEP 



Our subordinate DO-file, BACKUPX.DO, consists of 
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IFFIL B.$ IFCHR W {3} SET {4}{1}:*.*;N-A 
IFFIL B.$ COPY {4}{1}: {4}{2}:;NAC 
IFFIL R.$ COPY {4}{1}: {4}{2}:;NX 

By the use of these DO-files, a somewhat complex and tedious task has been 
reduced to a single command. 

— A Complex Working Example — 

To provide ourselves with a more exhaustive working example, let's design a 
different BACKUP .DO file to form the core of a more comprehensive backup system. 
In this DO-file, the computer will ask us a series of yes/no questions, and 

r\fnA%tft A a Xi. KPV^TD !->•»• CCCTHOT? Kpo£>/4 iirvrkn nut- ortatjck-r-a 

Create a nice sign-on screen, BACKUP .MSG. 

Use BACKUP. DO to display this message and give us a chance to abort gracefully. 

\PP.OMPT BACKUP .MSCXCPJILYES T.$;*DO YOU WISH TO CONTINUE? 
IFNOTFIL T.$ ENDDO 
DLFIL T.$ 

• • • 

Notice the leading separator character "\" in the first command line, this will 

cause the command <CRFILYES T.$;*DO YOU WISH TO CONTINE?> to not be itself 

echoed to the console (in version 1 .4x) and will produce a better- looking 
output . 

Are we going to BACKUP or RESTORE? 

... 

CRFILYES R.$; "RESTORE (Y) OR BACKUP (N) FILES? 

• • • 

Assuming a BACKUP, is it WEEKLY or DAILY? 

• • • 

IFNOTFIL R.$ CRFILYES W.$; WEEKLY (Y) OR DAILY (N) BACKUP? 

• • • 

Assuming a RESTORE, restore only missing files or all files? 

... 

IFFIL R.$ CRFILYES M.$;MISSING-ONLY (Y) OR ALL (N) FILES? 

... 

Backup from which drive(s)? 

• • • 

CRFIL T.$ 

IFNOTFIL R.$ CRFILYES A.$;FROM DRIVE A (Y/N)?|DLFIL T.$ 

IFNOTFIL R.$ CRFILYES B.$;FROM DRIVE B (Y/N)? IDLFIL T.$ 

IFNOTFIL R.$ CRFILYES C.$;FROM DRIVE C (Y/N)? iDLFIL T.$ 

IFNOTFIL R.$ CRFILYES D.$;FROM DRIVE D (Y/N)?|DLFIL T.$ 
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IFNOTFIL R.$ IFFIL T.$ IFFIL W.$ DLFIL W.$|DLFIL T.$|ENDDO 

• • « 

Restore from which drive? 



IFFIL R.$ CRFILYES E.$;FROM DRIVE E (Y/N)?|DLFIL T.$ 

IFFIL T.$ IFFIL R.$ CRFILYES E.$;FROM DRIVE E (Y/N)? jDLFIL T.$ 

IFFIL T.$ DLFIL R.$| IFFIL M.$ DLFIL M.$|DLFIL T.$|ENDDO 



Restore to which drive? 



CRFIL T.$ 

IFFIL R.$ CRFILYES A.$;TO DRIVE A (Y/N)?|DLFIL T.$ 
IFFIL T.$ IFFIL R.$ CRFILYES B.$;TO DRIVE B (Y/N)?|DLFIL T.$ 
IFFIL T.$ IFFIL R.$ CRFILYES C.$;TO DRIVE C (Y/N)?|DLFIL T.$ 
IFFIL T.$ IFFIL R.$ CRFILYES D.$;TO DRIVE D (Y/N)? JDLFIL T.$ 
IFFIL T.$ IFFIL R.$ IFFIL E.$ DLFIL E.$|IFFIL F.$ DLFIL F.$|IFFIL M.$ 
DLFIL M.$|DLFIL R.$|DLFIL T.$|ENDDO 



Backup to which drive? 



IFNOTFIL R.$ CRFILYES E.$;TO DRIVE E (Y/N)? JDLFIL T.$ 

IFFIL T.$ IFNOTFIL R.$ CRFILYES F.$;TO DRIVE F (Y/N)? JDLFIL T.$ 

IFFIL T.$ IFFIL A.$ DLFIL A.$|IFFIL B.$ DLFIL B.$|IFFIL C.$ DLFIL C.$ 

I IFFIL D.$ DLFIL D.$ 
IFFIL T.$ IFFIL W.$ DLFIL W.$lDLFIL T.$|ENDDO 



Tidy things up. 



IFNOTFIL R.$ IFNOTFIL W.$ IFFIL A.$ IFFIL E.$ CRFIL DAE.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL A,$ IFFIL F.$ CRFIL DAF.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL B.$ IFFIL E.$ CRFIL DBE.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL B.$ IFFIL F.$ CRFIL DBF.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL C.$ IFFIL E.$ CRFIL DCE.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL C.$ IFFIL F.$ CRFIL DCF.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL D.$ IFFIL E.$ CRFIL DDE.$ 
IFNOTFIL R.$ IFNOTFIL W.$ IFFIL D.$ IFFIL F.$ CRFIL DDF.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL A.$ IFFIL E.$ CRFIL WAE.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL A.$ IFFIL F.$ CRFIL WAF.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL B.$ IFFIL E.$ CRFIL WBE.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL B.$ IFFIL F.$ CRFIL WBF.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL C.$ IFFIL E.$ CRFIL WCE.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL C.$ IFFIL F.$ CRFIL WCF.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL D.$ IFFIL E.$ CRFIL WDE.$ 
IFNOTFIL R.$ IFFIL W.$ IFFIL D.$ IFFIL F.$ CRFIL WDF.$ 
IFFIL R.$ IFFIL E.$ IFFIL A.$ CRFIL REA.$ 
IFFIL R.$ IFFIL E.$ IFFIL B,$ CRFIL REB.$ 
IFFIL R.$ IFFIL E.$ IFFIL C.$ CRFIL REC.$ 
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IFFIL R.$ IFFIL E.$ IFFIL D.$ CRFIL RED.$ 
IFFIL R.$ IFFIL F.$ IFFIL A.$ CRFIL RFA.$ 
IFFIL R*$ IFFIL F.$ IFFIL B.$ CRFIL RFB.$ 
IFFIL R.$ IFFIL F.$ IFFIL C.$ CRFIL RFC.$ 
IFFIL R.$ IFFIL F.$ IFFIL D.$ CRFIL RFD»$ 
IFFIL R,$ DLFIL R.$ 
IFFIL W.$ DLFIL W.$ 
IFFIL A.$ DLFIL A.$ 
IFFIL B.$ DLFIL B.$ 
IFFIL C.$ DLFIL C.$ 
IFFIL D.$ DLFIL D.$ 
IFFIL E.$ DLFIL E.$ 
IFFIL F.$ DLFIL F.$ 



Perform the backup or restore. 



IFFIL DAE,$ DO BACKUPX D A 
IFFIL DAF.$ DO BACKUPX D A 
IFFIL DBE.$ DO BACKUPX D B 
IFFIL DBF.$ DO BACKUPX D B 
IFFIL DCE.$ DO BACKUPX D C 
IFFIL DCF.$ DO BACKUPX D C 
IFFIL DDE.$ DO BACKUPX D D 
IFFIL DDF.$ DO BACKUPX D D 
IFFIL WAE,$ DO BACKUPX W A 
IFFIL WAF . $ DO BACKUPX W A 
IFFIL WBE.$ DO BACKUPX W B 
IFFIL WBF.$ DO BACKUPX W B 
IFFIL WCE.$ DO BACKUPX W C 
IFFIL WCF.$ DO BACKUPX W C 
IFFIL WDE.$ DO BACKUPX W D 
IFFIL WDF.$ DO BACKUPX W D 
IFFIL REA.$ DO BACKUPX R E 
IFFIL REB.$ DO BACKUPX R E 
IFFIL REC.$ DO BACKUPX R E 
IFFIL RED.$ DO BACKUPX R E 
IFFIL RFA.$ DO BACKUPX R F 
IFFIL RFB.$ DO BACKUPX R F 
IFFIL RFC. $ DO BACKUPX R F 
IFFIL RFD.$ DO BACKUPX R F 
IFFIL M.$ DLFIL M.$ 
BEEP 



ElDLFIL 
F iDLFIL 



IDLFIL 
iDLFIL 
IDLFIL 
IDLFIL 
iDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 
IDLFIL 



DAE.$ 
DAF.$ 
DBE.$ 
DBF.$ 
DCE.$ 
DCF.$ 
DDE.$ 
DDF.$ 
WAE.$ 
WAF.$ 
WBE.$ 
WBF.$ 
WCE.$ 
WCF.$ 
VIDE.$ 
WDF.$ 
REA.$ 
REB.$ 
REC.$ 
RED.$ 
RFA.$ 
RFB.$ 
RFC.$ 
RFD.$ 



Done! 

Our subordinate DO-file, BACKUPX. DO, is as follows: 

IFUSR 0{2}; BACKUPY {1} {2} {3} 

IFUSR 1{2}: BACKUPY {1} {2} {3} 1 

IFUSR 2{2}: BACKUPY {1} {2} {3} 2 

... (Repeat the command line for users 3 through 28) 

IFUSR 29 {2}: BACKUPY {1} {2} {3} 29 

IFUSR 30 {2}: BACKUPY {1} {2} {3} 30 
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IFUSR 31 {2}: BACKUPY {1} {2} {3} 31 

Our secondary subordinate DO-file, BACKUPY .DO is: 

IFNOTCHR R {1} DELETE {4}<2}:*.BAK;N IDELETE {4}{2}:-PRINT-*.*;N 

IFCHR W {1} SET {4}{2}:*.*;N-A 

IFNOTCHR R {1} COPY {4}{2}: {4}{3}:;NAC 

IFCHR R {1} SET {4}{3}:*.*;N-R 

IFCHR R {1} IFFIL M.$ COPY {4}{2}: {4}{3}:;NX 

IFCHR R {1} IFNOTFIL M.$ COPY {4}{2}: {4}{3}:;N 

IFCHR R {1} IFCHR {4} SET 0{3}:;NG 

IFCHR R {1} SET {4}{3}:*.C0M;NR 

IFCHR R {1} SET {4}{3}:*.CMD;NR 

Our sign-on message file, BACKUP .MSG, is: 

"* SYSTEM BACKUP ROUTINE 

This routine will allow the BACKUP of data 
FROM any combination of drives A:, B: , C:, or D: 
TO either of the floppy drives E: or F: 

OR 

the RESTORATION of data 

TO any drive A: , B: , C: , or D: 

FROM either of the floppy drives E: or F: 

Thus ends our complex example, which really shouldn't be so complex, taken a 
step at a time. 

— Source Codes — 

Source codes for the entire family of conditional and conditional support 
utilities in both 8- and 16-bit versions are provided with this article. These 
source codes may be readily typed-in, assembled and linked, providing you with 
the power we have been discussing. 

In order to save space, the 8- and 16-bit versions of the source codes are given 
in "parallel," A very cursory examination will show that the 8-bit code is 
given first, then the 16-bit code, then the common comments. A vertical bar "|" 
is used as a separator between the 8- and 16-bit codes. 

Type in these codes in a normal manner, using only the 8-bit or only the 16-bit, 
whichever is proper for your system, (Please be certain to type in my copyright 
line, as I spent many long hours creating these utilities.) Assemble the 
finished code using Microsoft's Macro-80 (M80) for the 8-bit or Software 2000's 
TASM for the 16-bit. Use GEN.COM or TLINK.CMD to link the resultant modules 
into working command files. 

Again to save space, common routines have been placed into four subroutine 
files. These files must be separately assembled, and are joined with the 
appropriate main modules at link time. The easiest way to prevent accidental 
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ommision of a subroutine module is to create the following one-line GEN files 
for the main modules involved. The main modules are always listed first: 

IFFIL,SDBIF1,SUBIF2,SUBIF3 ;For IFFIL and IFNOTFIL 

IFUSR,SUBIF1,SUBIF2 ;For IFUSR and IFNOTUSR 

IFCHR,SUBIF1 ;For IFCHR and IFNOTCHR 

CRFIL,SUBIF2,SUBIF3,SUBIF4 ;For CRFIL and CRFILYES 

DLFIL,SUBIF2,SUBIF3,SUBIF4 ;For DLFIL and DLFILYES 

TTIimnn OTTTITT?/. • TTrti- T?XmT\r\ an/l T?MT»TinVP'C 



D0HALT,SUBIF4 ;For DOHALT 

PR0MPT,SUBIF2,SUBIF3,SUBIF4 jFor PROMPT 

CLS ;For CLS 

In order to create the IFNOTxxx and xxxxxYES files, create first the base file 
(IFFIL is the base file for IFNOTFIL, etc.) then use monitor (8-bit) or TBUG 
(16-bit) to create the variant. This may best be done via the following file, 
"IFPATCH.DO": 

8-Bit 16-Bit 

MONITOR TBUG {1} 

L{1}.C0M EOlOO 

E0103 FF 

FF <cr> 

<tab><cr> S{2} 

S{2}.C0M Q 
Q 

The "<tab><cr>" in the 8-bit DO-file will cause MONITOR to exit the 
Examine/ change mode. The above DO-files are, of course, executed via the 
command <D0 IFPATCH input file outputfile>, where "inputfile" would be "IFFIL", 
"IFUSR", etc., and "outputfile" would be "IFNOTFIL", "IFNOTUSR", etc. 

For those who do not wish to spend the time typing, all the source codes, 
GENeration files, finished command files, and a complete copy of this article in 
both Wordstar and ready-to-print forms is available on an 8" single- 
sided/ single-density CP/M format diskette directly from the author: 

R. Roger Breton 

836 Portola Av., Ste. 599 

Livermove, CA 94550 

Cost is $25.00 for TUG members, $35.00 for non members. 

Source codes are also available at no charge via 1200 Baud modem. Modem 
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transfers are by appointment only, no exceptions. Call (415) 443-3131 Tuesday 
through Friday (no Monday calls, please) between 1:30 and 6:00 p.m. Pacific time 
for an appointment and protocols required. 

Please bear in mind that these utilities are released to the public domain for 
personal use only, and may not legally be distributed, for sale or for free, 
without prior permission. Dealers wishing to provide these utilities to their 
customers may purchase a license for $75.00, which includes a master diskette of 
all source codes and documentation (also containing source and documentation for 
a few other goodies). Send a COMPANY check (as proof of doing business) to the 
above address, 

— Conclusion — 

As may be seen by the above discussion and examples, TurboDOS' very powerful 
batch processing utilities, D0.COM and BATCH.COM provide considerable 
flexibility in the implementation of batch-processing functions. When coupled 
with the conditional utilities, IFFIL, IFNOTFIL, IFUSR, IFNOTUSR, IFCHR and 
IFNOTCHR, and the conditional-support utilities, CRFIL, CRFILYES, DLFIL, 
DLFILYES, ENDDO, ENDDOYES, DOHALT, PROMPT, BEEP, and CLS, the DO-files becomes 
practically a programming language. With a little imagination, extremely 
powerful DO-files can be created to better realize the potentials of a TurboDOS 
systems. 
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— Combined 8- and 16-Bit Source Codes — 
Routine to generate the following conditional utilities: IFFIL, IFNOTFIL 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME CIFFIL') 
.Z80 



NOTFLG::DB 
DB 



CSEG 

JP BEGIN 




BEGIN: 


LD 


A,(NOTFLG) 




OR 


A 




JR 


Z, NOINIT 




LD 


A,-l 




LD 


(NOTFLG),A 


NOINIT : 


CALL TSTFIL## 




OR 


A 




JR 


NZ, ABORT 




CALL FNDFIL## 




LD 


B,A 




LD 


A,(NOTFLG) 




XOR 


B 




JR 


NZ,EXIT 




XOR 


A 




CALL CMDLST## 




OR 


A 




JR 


NZ ,ABORT 




LD 


DE,0080H 




LD 


A,(0050H) 




CP 


0C3H 




JR 


NZ,TD0S12 




LD 


C,18 




CALL 


0050H 




JR 


EXIT 


TD0S12: 


LD 


C,108 




CALL 


0005H 




JR 


EXIT 


ABORT : 


LD 


C,9 




CALL 


0005H 


EXIT: 


JP 


OOOOH 



'— Copyright (C) 1985, 1986, R. Roger Breton — ' 

BYTE "— Copyright (C) 1985, 1986, " 
BYTE "R. Roger Breton -- " 



BEGIN: CMP BYTE NOTFLG,=0 ;Is NOT flag set? 



MODULE "IFFIL" 



LOC Data# 



LOC Code# 
JMP BEGIN 



; Program ID 
;Zilog mnemonics 

; Locate in data segment 

,iNUi. J. xeig 

;Locate in code segment 

;Skip 

;NOT flag 



JZ NNIT 

MOV BYTE N0TFLG,=1 

NNIT: CALL TSTFIL# 
OR DX,DX 
JNZ __ABT 
CALL FNDFIL# 

MOV CL,=7 
SHR AL,CL 
CMP NOTFLG,AL 

JNZ EXIT 

XOR AL,AL 
CALL CMDLST# 
OR DX,DX 
JNZ ___ABT 
MOV DX,&0x0080 



MOV CL,=18 
INT 223 
JMP EXIT 



__ABT: MOV CL,=9 

INT 224 

EXIT: MOV CL,=0 

INT 224 



;If no, skip 

; Initialize NOT flag 

;Test for file specified 

; Error? 

;If yes, abort 

;Is file present? 

;Move results 

;Make result TRUE/FALSE 

;Process cmd list? 

;If no, done 

; Clear IFCHR flag 

;Proce8S command list 

;Error? 

;If yes, abort 

; Point to command list 

;Get version flag 

;Version 1 .3x or 1 ,4x? 

;If no, skip 

;Send command list 

;Done 

;Send command list 

jSkip 

;Print abort message 

;Return to o/s 
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END I END 

Routine to generate the following conditional utilities: IFUSR, IFNOTUSR 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ( 'IFUSR') 
.Z80 



DSEG 
NDSMSG: DB 7, 13, 10, 'No 



NUSMSG: DB 

NPUMSG: DB 

PRVFLG: DB 
T14FLG::DB 
SPCUSR::DB 
CURUSR::DB 
DIRBUF: DB 



LOG Data# 
NOTFLG::BYTE 
drive specif ied.', 13, 10,'$' 

NDSMSG: BYTE "\7\r\nNo drive specif ied. \r\n$" 
user area specif ied. ',13, 10,'$' 
NUSMSG: BYTE "\7\r\nNo user area specif ied. \r\n$" 
7 , 13 , 10 , 'Non-privil edged user .',13,10,'$' 

NPUMSG: BYTE "\7\r\nNon-priviledged user.\r\n$" 
PRVFLG: BYTE ;Priviledged user flag 

T14FIiG::BYTE jVersion i .4x flag 

SPCUSR::BYTE 0x80 jSpecified user number 

CURUSR::BYTE ;Current user number 

DIRBUF: RES 128 ;Directory DMA buffer 



7, 13, 10, 'No 







80H 



128 



NOTFLG::DB 
DB 



CSEG 

JP BEGIN 




BEGIN: LD 


A,(NOTFLG) 


OR 


A 


JR 


Z, NOINIT 


LD 


A,-l 


LD 


(N0TFLG),A 


NOINIT: LD 


DE, NDSMSG 


LD 


A,(005CH) 


OR 


A 


JP 


Z, ABORT 


LD 


A,(0050H) 


CP 


0C3H 


JP 


NZ,SUSER 


LD 


C,12 


CALL 


0050H 


LD 


A,C 


CP 


14H 


JP 


NZ , SUSER 


LD 


A,-l 


LD 


(T14FLG),A 


BIT 


7,B 



MODULE "IFUSR" 



; Program ID 
;Zilog mnemonics 



; Locate in data segment 
;N0T flag 



LOG Code# 
JMP BEGIN 



;Locate in code segment 
;Skip 
;N0T flag 
'— Copyright (C) 1985, 1986, R. Roger Breton — ' 

BYTE "— Copyright (C) 1985, 1986, " 

BYTE "R. Roger Breton — " 



BEGIN: CMP BYTE NOTFLG,=0 ;Is NOT flag set? 



JZ __NNIT 

MOV BYTE N0TFLG,=1 

NNIT: MOV DX,&NDSMSG 

CMP BYTE 0x005C,=0 



JNZ 
JMP 



_S1 
ABT 



SI 



MOV CL,=12 

INT 223 

CMP CL,=0xl4 

JNZ ^SUSR 

MOV BYTE T14FLG,=1 

TEST CH,=0x80 



;If no, skip 

; Initialize NOT flag 

; Point to no drive msg 
;Is drive default? 

If no, continue 
If yes, abort 
Version 1.22? 

;If yes, skip 

;Get status/version 

; Vers ion 1 .4x 

;If no, skip 

;Set version 1.4 flag 

;Priviledged? 
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NPRIV: 



SUSER: 



TFLOOP 



JR 


Z, NPRIV I 


LD 


A,-l 1 


LD 


(PRVFLG),A 1 


LD 


DE,NUSMSG 1 


LD 


A,(006BH) 1 


OR 


A 1 


JR 


Z, ABORT 1 


LD 


E,-l 1 


LD 


C,32 1 


CALL 


0005H 1 


LD 


(CURSUR),A 1 


LD 


B,A 1 


LD 


A,(0069H) 1 


CP 


6 ! 


JR 


Z, SUSER 1 


LD 


(SPCUSR),A 1 


LD 


DE,NPUMSG 1 


LD 


A,(PRVFLG) 1 


OR 


A 1 


JR 


Z, ABORT i 


CALL 


NEWUSR## 1 


LD 


HL,005DH 1 


LD 


(HL),'?' 1 


LD 


D,H 1 


LD 


E,L 1 


INC 


DE 1 


LD 


BC,11 1 


LDIR 




LD 


DE,DIRBUF 1 


LD 


C,26 1 


CALL 


0005H 1 


LD 


DE,005CH 1 


LD 


C,17 1 


CALL 


0005H 1 


PUSH 


AF 1 


CALL OLDUSR## 1 


POP 


AF 1 


LD 


B,8 1 


SRA 


A 1 


DJNZ 


TFLOOP 1 


LD 


B,A 1 


LD 


A,(NOTFLG) 1 


XOR 


B 1 


JR 


NZ,EXIT 1 


XOR 


A i 


CALL CMDLST## I 


OR 


A 1 


JR 


NZ ,ABORT 1 


LD 


DE,0080H 1 


LD 


A,(0050H) 1 


CP 


0C3H I 


JR 


NZ,TD0S12 1 


LD 


C,18 1 


CALL 


0050H 1 


JR 


EXIT 1 



JZ NPRV 

MOV BYTE PRVFLG,=1 

_NPRV: MOV DX,&NUSMSG 

CMP BYTE 0x006B.=0 



JZ 


ABT 


MOV 


DL,=255 


MOV 


CL,=32 


INT 


224 


MOV 


CURUSR , AL 


MOV 


AH, 0x0069 


CMP 


AL,AW 


JZ 


SUSR 


MOV 


SPCUSR,AH 


MOV 


DX,&NPUMSG 


CMP 


BYTE PRVFLG,=0 



J7 ABT 

CALL NEWUSR# 
SUSR: MOV DI,&0x005D 
MOV AL,=63 



MOV CX,=11 
REP STOS BYTE 
MOV DX,&DIRBUF 
MOV CL,=26 
INT 224 
MOV DX,&0x005C 
MOV CL,=17 
INT 224 
PUSH AX 
CALL OLDUSR# 
POP AX 
MOV CL,=7 
SHR AL,OL 



CMP NOTFLG,AL 

JNZ ^EXIT 

XOR AL,AL 

CALL CMDLST# 

OR DX,DX 

JNZ __ABT 

MOV DX,&0x0080 



MOV CL,=18 
INT 223 
JMP EXIT 



;If no, skip 

;Set priviledged flag 

; Point to no user msg 
;Was a user specified? 

;If no, abort 

;Get current user number 



; Stash it 

;Get spec user number 

-Same as current? 

;If yes, skip 

; Stash it 

; Point to non-priv msg 

;Priviledged? 

;If no, abort 

;Move to spec user area 

; Initialize FCB 



;Set DMA buffer 



;Find any file 



;Save result 

; Return to current user 

;Restore results 

;Make result TRUE/ FALSE 



;Process command list? 

;If no, done 

; Clear IFCHR flag 

;Process command list 

; Error? 

;If yes, abort 

;Send command list 

;Get T-f unction jump 

;Ver6ion 1 .3x or 1.4x? 

;If no, skip 



;Done 
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ABORT : LD C , 9 

CALL 000 5H 
EXIT : JP OOOOH 



END 



__ABT: MOV CL,=9 

INT 224 

EXIT: MOV CL,=0 

INT 224 

END 



;Print abort message 
;Return to o/s 



Routine to generate the following conditional utilities: IFCHR, IFNOTCHR 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R, Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ( 'IFCHR') 
.Z80 

DSEG 



MODULE "IFCHR" 



; Program ID 
;Zilog mnemonics 



;Locate in data segment 
;NOT flag 



I LOC Data# 

|NOTFLG::BYTE 
NTCMSG: DB 7, 13, 10, 'Illegal/missing test character .' ,13,10,'$' 

INTCMSG: BYTE "\7\r\nlllegal/missing test " 

I BYTE "character. \r\n$" 
NMCMSG: DB 7,13,10,'IIlegal/missing match character .',13,10,'$' 

INMCMSG: BYTE "\7\r\nlllegal/missing match " 

I BYTE "character. \r\n$" 

I 
CSEG I LOC Code# ; Locate in code segment 

JP BEGIN I JMP BEGIN ;Skip 

NOTFLG::DB I ;NOT flag 

DB '-- Copyright (C) 1985, 1986, R. Roger Breton — ' 

I BYTE "— Copyright (C) 1985, 1986, " 

I BYTE "R, Roger Breton — " 



BEGIN: LD 
OR 
JR 
LD 
LD 

NOINIT: LD 
LD 
LD 
CP 
JR 
LD 
LD 
LD 
CP 
JR 
LD 
SUB 
JR 
LD 

GMATCH: LD 
LD 



JZ 



ABT 



A,(NOTFLG) I BEGIN: CMP BYTE NOTFLG,=0 

A I 

Z, NOINIT I JZ __NNIT 

A,-l I MOV BYTE N0TFLG,=1 

(NOTFLG),A I 

DE, NTCMSG I NNIT : MOV DX,&NTCMSG 

HL,005DH I CMP BYTE 0x00 5D, =3 2 

A,' ' 

(HL) 

Z, ABORT 

C,(HL) 

DE, NMCMSG 

HL,006DH 

(HL) 

Z , ABORT 

A,(HL) 

C 

Z, GMATCH 

A,-l 

B,A I 

A,(NOTFLG) |__MCH: CMP AL,NOTFLG 



MOV DX,&NMCMSG 

CMP BYTE 0x006D,=32 

JZ __ABT 

MOV AL,0x006D 

SUB AL,0x005D 

JZ _MCH 

MOV AL,1 



;Is NOT flag set? 

;If no, skip 

; Initialize NOT flag 

;Point to no tst chr msg 
;Was test chr specified? 



;If no, abort 

; Point to no mch chr msg 
;Was mtch chr specified? 

;If no, abort 

;Get match character 

;Do the test 

;If a match, skip 

;Set for no match 

;Process command list? 



XOR B 



TurboDOS Users' Group Newsletter, Volume 3, Number 1, 



Page 31 





JR 


NZ,EXIT 




JNZ 


XIT 


;If no, skip 




LD 


A,-l 




MOV 


AL,=1 


;Set IFCHR flag 




CALL CMDLST## 




CALL CMDLST# 


;Process command list 




OR 


A 




OR 


DX,DX 


; Error? 




JR 


NZ , ABORT 




JNZ 


ABT 


;If yes, abort 




LD 


DE,0080H 




MOV 


DX,&0x0080 


;Send command list 




LD 


A,(0050H) 








;Get version flag 




CP 


0C3H 








;Version 1.3x or 1.4x? 




JR 


NZ,TD0S12 








;If no, skip 




LD 


C,18 




MOV 


CL,=18 






CAT.T. 


0050H 




INT 


223 






JR 


EXIT 




JMP 


XIT 


;Skip 


ABORT : 


LD 


C,9 


ABT: 


MOV 


CL,=9 


; Print abort message 




GALL 


0005H 




INT 


224 




EXIT: 


JP 
END 


OOOOH 


XIT: 


MOV 
INT 

END 


CL,=0 
224 


;Return to o/s 



R011^^no f-r\ a art a-r a i- a *-ha f rk 1 1 nrj-i r»o ii ^ -i 1 i t- i oq • PPT?TT PPTTTVPC 



Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME CCRFIL') | 
.Z80 I 



MODULE "CRFILE" 



; Program ID 
;Zilog mnemonics 



DSEG 



; Locate in data segment 
;YES flag 



FILMSG: DB 

FLXMSG: DB 

UCRMSG: DB 

GRFMSG: DB 

PMTSPT::DB 
PMTBEL::DB 
PMTSTR::DB 
PMTSTX::DB 



I LOC Data# 

|YESFLG::BYTE 

|CLSSTR::BYTE 26,"$$$$$$$$$$$$" ;Clear-screen string 
13, 10, 'File $' 

IFILMSG: BYTE "\r\nFile $" 
' already exists .' ,7 ,13,10,'$' 

IFLXMSG: BYTE " already exists .\7\r\n$" 
unable to be created. ',7, 13,10,'$' 

lUCRMSG: BYTE " unable to be created. \7\r\n$" 
successully created, ',13, 10,'$' 

ICRFMSG: BYTE " successully created. \r\n$" 
-1 !PMTSPT::BYTE 1 
-1 |PMTBEL::BYTE 1 
13, 10, 'Okay to create $$$$$$$$$$$$$$$$$' 
' at this time? $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' 

|PMTSTR::BYTE "\r\nOkay to create $$$$$$$$$$$$$$$$$" 

|PMrSTX::BYTE " at this time? " 

I BYTE "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 



CSEG I LOC Code# ;Locate in code segment 

JP BEGIN I JMP BEGIN ;Skip 
YESFLG::DB I ;YES flag 
CLSSTR::DB 26,'$$$$$$$$$$$$' ;Clear-screen string 

DB '— Copyright (C) 1985, 1986, R. Roger Breton — ' 

I BYTE "— Copyright (C) 1985, 1986, " 

I BYTE "R. Roger Breton — " 
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BEGIN: CALL TSTFIL## 


IBEGIN: 


CALL 


TSTFIL# 


;Test for file specified 


OR 


A 




OR 


DX,DX 


;Was it? 


JR 


NZ, ABORT 




JNZ 


ABT 


;If no, skip 


LD 


A,(YESFLG) 




CMP 


BYTE YESFLG,=0 


;Is YES flag set? 


OR 


A 










JR 


Z, NOYES 




JZ 


NYES 


;If no, skip 


XOR 


A 




XOR 


AL,AL 


; Clear long-prompt flag 


CALL CHKPMT## 




CALL CHKPMT# 


;Chk and display prompt 


CALL GETCHR## 




CALL 


GETCHR# 


;Get a reply character 


CP 


'Y' 




CMP 


AL,=89 


; Is it a "Y"? 


JR 


NZ,EXIT 




JNZ 


EXIT 


;If no, exit to o/s 


NOYES: CALL FNDFIL## 


NYES: 


CALL FNDFIL# 


jCheck for file present 


LD 


DE,FLXMSG 




MOV 


DX,&FLXMSG 


;Point to fl exists msg 


OR 


A 




OR 


AL,AL 


;Did file exist? 


JR 


Z, NOCRFL 




JZ 


NOCR 


;If yes, abort 


CALL 


NEWUSR## 




CALL 


NEWUSR# 


;Move to spec user 


LD 


DE,005CH 




MOV 


DX,&0x005C 


;Create the file 


LD 


C,22 




MOV 


CL,=22 




CALL 


0005H 




INT 


224 




PUSH 


AF 




PUSH 


AX 


;Save the error code 


LD 


DE,005CH 




MOV 


DX,&0x005C 


jClose the file 


LD 


G,14 




MOV 


GL,=16 




CALL 


0005H 




INT 


224 




CALL 


OLDUSR## 




CALL 


OLDUSR# 


jReturn to original user 


POP 


AF 




POP 


AX 


jRestore the error code 


LD 


DE,UCRMSG 




MOV 


DX,&UCRMSG 


; Preset to no create msg 


OR 


A 




OR 


AL.AL 


;Was file created? 


JR 


NZ .ABORT 




JNZ 


NOCR 


;If no, abort 


LD 


DE,CRFMSG 




MOV 


DX,&CRFMSG 


;Point to created msg 


NOCRFL: PUSH 


DE 


NOCR: 


PUSH 


DX 


;Save message pointer 


LD 


DE,FILMSG 




MOV 


DX,&FILMSG 


;Print output msg pt 1 


LD 


C,9 1 




MOV 


CL,=9 




CALL 


0005H 1 




INT 


224 




CALL PRTFIL## 1 




CALL PRTFIL# 


; Print filename 


POP 


DE 1 




POP 


DX 


;Restore message pointer 


ABORT : LD 


C,9 1 


ABT: 


MOV 


CL,=9 


;Display the message 


CALL 


0005H 1 




INT 


224 




EXIT : JP 


GOOOH 1 


EXIT: 


MOV 
INT 


CL,=0 
224 


;Exit to o/s 


END 






END 







Routine to generate the following utilities: DLFIL, DLFILYES 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ('DLFIL') 
.Z80 

DSEG 



MODULE "DLFIL" 



LOC Data# 
YESFLG::BYTE 



; Program ID 
;Zilog mnemonics 

;Locate in data segment 
;YES flag 
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1CLSSTR::BYTE 26,"$$$$$$$$$$$$" ;Clear-screen string 
FILMSG: DB 13, 10, 'File $' 

IFILMSG: BYTE "\r\iiFile $" 
NFLMSG: DB ' does not exist .' ,7,13,10,'$' 

INFLMSG: BYTE " does not exist .\7\r\n$" 
FFOMSG: DB ' is a FIFO file, not deleted, ',7, 13, 10,'$' 

IFFOMSG: BYTE " is a FIFO file, not deleted. \7\r\n$" 
ROFMSG: DB ' is set READ ONLY. ',7, 13, 10,'$' 

IROFMSG: BYTE " is set READ 0NLY.\7\r\n$" 
NMTMSG: DB ' is not empty, not deleted.' ,7,13,10,'$' 

INMTMSG: BYTE " is not empty, not deleted, \7\r\n$" 
NDLMSG: DB ' unable to be deleted. ',7, 13, 10,'$' 

INDLMSG: BYTE " unable to be deleted. \7\r\n$" 

IDFLMSG: BYTE " successully deleted. \r\n$" 
PMTSPT::DB -1 IPMTSPT: :BYTE 1 
P^f^BEL::DB -1 IPMTBEL: :BYTE 1 
PMrSTR::DB 13, 10, 'Okay to delete $$$$$$$$$$$$$$$$$' 
PMTSTX::DB ' at this time? $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' 

!PMTSTR;:3YTE "\r\nOkay to delete $$$$$$$$$$$$$$$$$" 

|PMTSTX::BYTE " at this time? " 

I BYTE "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 

I 

CSEG I LOG Code# ; Locate in code segment 

JP BEGIN I JMP BEGIN ;Skip 

YESFLG::DB 1 ;YES flag 

CLSSTR::DB 26,'$$$$$$$$$$$$' ;Clear-screen string 

DB '— Copyright (C) 1985, 1986, R. Roger Breton — ' 

I BYTE "— Copyright (C) 1985, 1986, " 

I BYTE "R. Roger Breton — " 



BEGIN: CALL TSTFIL## 


1 BEGIN: CALL 


TSTFIL# 


OR 


A 


1 OR 


DX,DX 


JR 


NZ ,ABORT 


1 JNZ 


ABT 


LD 


A,(YESFLG) 


1 CMP 


BYTE YESFLG,=0 


OR 


A 






JR 


Z, NOYES 


1 JZ 


NYES 


XOR 


A 


1 XOR 


AL,AL 


CALL CHKPMT## 


j CALL 


CHKPMT# 


CALL GETCHR## 


1 CALL 


GETCHR# 


CP 


'Y' 


1 CMP 


AL,=89 


JR 


NZ,EXIT 


i JNZ 


EXIT 


NOYES: CALL FNDFIL## 


1 NYES: CALL 


FNDFIL# 


LD 


DE, NFLMSG 


I MOV 


DX,&NFLMSG 


OR 


A 


1 OR 


AL,AL 


JR 


NZ,NODLFL 


1 JNZ 


NODL 


LD 


DE, NMTMSG 


1 MOV 


DX,&NMTMSG 


LD 


HL,007DH 


1 MOV 


BX,&0x007D 


LD 


A,(HL) 


1 MOV 


AL,[BX] 


INC 


HL 






OR 


(HL) 


1 OR 


AL,1[BX] 


INC 


HL 






OR 


(HL) 


1 OR 


AL,2[BX] 


JR 


NZ,NODLFL 


1 JNZ 


NODL 


CALL 


NEWUSR## 


1 CALL 


NEWUSR# 



;Test for file specified 

;Was it? 

;If no, skip 

;Is YES flag set? 

If no, skip 

Clear long -prompt flag 

Chk and display prompt 

Get a reply character 

Is it a "Y"? 

If no, done 

Is the file there? 

Point to no-file msg 

Was file found? 

If no, abort 

Point to not-empty msg 

Check file size 



;If not zero, abort 
jMove to proper user 
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LD 

LD 

CALL 

LD 

LD 

CALL 

CALL 

LD 

LD 

BIT 

JR 

LD 

LD 

BIT 

JR 

CALL 

LD 

LD 

CALL 

PUSH 

CALL 

POP 

LD 

OR 

JR 

LD 

NODLFL: PUSH 
LD 
LD 

CALL 
CALL 
POP 

ABORT : LD 

CALL 

EXIT : JP 



END 



DE,005CH 

C,15 

0005H 

DE,005CH 

C,16 

0005H 

OLDUSR## 

DE,FFOMSG 

A,(005DH) 

7, A 

NZ, NODLFL 

DEjROFMSG 

A,(0065H) 

7, A 

NZ, NODLFL 

NEWUSR## 

DE,005CH 

C,19 

0005H 

AF 

OLDUSR## 

AF 

DE,NDLMSG 

A 

NZ, NODLFL 

DE,DFLMSG 

DE 

DE,FILMSG 

C,9 

0005H 

PRTFIL## 

DE 

C,9 

0005H 

GOOCH 



;Open the file 



jClose the file 



MOV DX,&0x005C 

MOV CL,=15 

INT 224 

MOV DX,&0x005C 

MOV CL,=16 

INT 224 

CALL OLDUSR# ;Back to current user 

MOV DX,&FFOMSG ; Point to FIFO message 

TEST BYTE 0x005D,=0x80 ;Is FIFO attribute set? 

JNZ NODL ;If yes, abort 

MOV DX,&ROFMSG ; Point to read-only msg 

TEST BYTE 0x0065, =0x80 ;Is read-only attr set? 



JNZ 

CALL 

MOV 

MOV 

INT 

PUSH 

CALL 

POP 

MOV 

OR 

JNZ 

MOV 

_NODL: PUSH 
MOV 
MOV 
INT 
CALL 
POP 

ABT : MOV 
INT 

_EXIT: MOV 
INT 

END 



_NODL 

NEWUSR# 

DX,&0x005C 

CL,=19 

224 

AX 

OLDUSR# 

AX 

DX,&NDLMSG 

AL,AL 

NODL 

DX,&DFLMSG 

DX 

DX,&FILMSG 

CL,=9 

224 

PRTFIL# 

DX 

CL,=9 

224 

CL,=0 

224 



;If yes, abort 
;Point to proper user 
;Delete the file 



jSave the error code 
jBack to current user 
;Restore the error code 
; Point to no-delete msg 
jGood delete? 
;If no, abort 
;Point to delete message 
;Save message pointer 
; Print output msg pt 1 



; Print filename 
;Restore message pointer 
;Display the message 



;Exit to o/s 



Routine to generate the following utilities: ENDDO, ENDDOYES 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ('ENDDO') 
.Z80 

DSEG 



MODULE "ENDDO" 



I LOC Data# 
|YESFLG::BYTE 



; Program ID 
;Zilog mnemonics 

;Locate in data segment 
;YES flag 



PMTSPT::DB 
PMTBEL::DB 




-1 



|CLSSTR::BYTE 26 ,"$$$$$$$$$$$$" ;Clear-screen string 
|PMTSPT::BYTE 
|PMTBEL::BYTE 1 



PMTSTR::DB 13, 10, 'Okay to abort the DO-file at this time? 
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DB 



EDOMSG: DB 



'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' 

IPMTSTR: :BYTE "\r\nOkay to abort the " 

I BYTE »'DO-file at this time? " 

I BYTE "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 

13aO,'DO-file aborted. M3, 10/$' 

lEDOMSG: BYTE "\r\nDO-file aborted. \r\n$" 



CSEG 



JP 
YESFLG;:DB 
CLSSTR::DB 

DB 



LOG Code# 
JMP BEGIN 



; Locate in code segment 



BEGIN J JMP BEGIN ;Skip 

I ;YES flag 

26,'$$$$$$$$$$$$' ;Clear-screen string 

'— Copyright (C) 1985, 1986, R. Roger Breton — ' 

J BYTE "— Copyright (C) 1985, 1986, " 



BEGIN: 


LD 


A,(YESFLG) 




OR 


A 




JR 


Z, NOYES 




XOR 


A 




GALL 


CHKPMT## 




CALL GETCHR## 




CP 


'Y' 




JR 


NZ,EXIT 


NOYES: 


LD 


DE,0 




LD 


A,(0050H) 




CP 


0C3H 




JR 


NZ,TD0S12 




LD 


C,16 




CALL 


0050H 




JR 


EDDONE 


TD0S12: 


LD 


C,98 




CALL 


0005H 


EDDONE: 


LD 


DE, EDOMSG 




LD 


C,9 




CALL 


0005H 


EXIT: 


JP 


GOOOH 



[BEGIN: CMP BYTE YESFLG,=0 ;Is YES flag set? 



JZ NYES 

XOR AL,AL 
GALL GHKPMT# 
CALL GETCHR# 
CMP AL,=89 

JNZ EXIT 

_NYES: MOV DX,=0 



MOV CL,=16 
INT 223 



MOV DX,&EDOMSG 

MOV CL,=9 

INT 224 

EXIT: MOV CL,=0 

INT 224 



If no, skip 

Clear long-prompt flag 

Chk and display prompt 

Get a reply character 

Is it a "Y"? 

If no, exit to o/s 

Prepare to terminate 

Check the version 

1.3x or 1.4x? 

If no, skip 

Terminate the DO-file 

;Skip 

; Terminate the DO-file 

; Print terminated msg 



;Exit to o/s 



END 



END 



jRoutine to generate the following utility: DOHALT 



;Copyright (C) 1985, 1985, R. Roger Breton 

jAuthor: R. Roger Breton 

; Vers ion: 2.20 

;Dated: 26 January 1986 



NAME ('DOHALT') 
.Z80 

DSEG 



PMTSPT::DB 
PMTBEL::DB -1 



MODULE "DOHALT" 



; Program ID 
;Zilog mnemonics 



LOG Data# ; Locate in data segment 

BYTE ; Dummy flag byte 

CLSSTR::BYTE 26,"$$$$$$$$$$$$" ;Clear-screen string 

PMTSPT::BYTE 

PMTBEL::BYTE 1 
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PMTSTR::DB 13,10/DO-f ile halted, press any key to continue.' 
DB ' $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$' 

|PMTSTR::BYTE "\r\nDO-file halted, " 

I BYTE "press any key to continue." 

I BYTE " $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 



CSEG I LOG Code# ; Locate in code segment 

JP BEGIN I JMP BEGIN jSkip 

DB I ;Dummy flag byte 

CLSSTR::DB 26 ,'$$$$$$$$$$$$' ;Clear-screen string 

DB '— Copyright (C) 1985, 1986, R. Roger Breton — ' 

I BYTE "— Copyright (C) 1985, 1986, " 

I BYTE "R. Roger Breton — " 



BEGIN: XOR A 

CALL CHKPMT## 
CALL GETCHR## 
JP OOOOH 



I BEGIN: XOR AL,AL 

I CALL CHKPMT# 

I CALL GETCHR# 

I MOV CL,=0 

I INT 224 



; Clear long-prompt flag 
;Chk and display prompt 
;Get a reply character 
;Exit to o/s 



END 



END 



g^^Qiit-ine £q generate the following utility: PROMPT 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ('PROMPT') | 
.Z80 I 



MODULE "PROMPT" 



; Program ID 
;Zilog mnemonics 



;Locate in data segment 
; Dummy flag byte 



DSEG I LOG Data# 

I BYTE 

|CLSSTR::BYTE 26 ,"$$$$$$$$$$$$" ;Clear-screen string 
FILMSG: DB 7,13 ,10, 'File $' 

IFILMSG: BYTE "\7\r\nFile $" 
OSZMSG: DB ' is too large .',13,10,'$' 

lOSZMSG: BYTE " is too large. \r\n$" 
FNFMSG: DB ' not found.' ,13,10,'$' 

IFNFMSG: BYTE " not found. \r\n$" 
PMTSPT::DB -1 JPMTSPT: :BYTE 1 
PMTBEL::DB -1 IPMTBEL: :BYTE 1 
PMTSTR::DB '$$$' IPMTSTR: :BYTE "$$$" 
DS 2048 I RES 2048 



CSEG I LOG Code# ; Locate in code segment 

JP BEGIN U JMP BEGIN ;Skip 

DB I ;Dummy flag byte 

CLSSTR::DB 26,'$$$$$$$$$$$$' ;Clear-screen string 

DB '-- Copyright (C) 1985, 1986, R. Roger Breton — ' 

I BYTE "— Copyright (C) 1985, 1986, " 

I BYTE "R. Roger Breton — " 



BEGIN: CALL TSTFIL## IBEGIN: CALL TSTFIL# 



;Test for file specified 
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OR 


A 


i OR 


DX,DX 


;Was it? 


JR 


NZ, PRINT 


1 JNZ 


PRT 


;If no, abort 


CALL FNDFIL## 


1 CALL FNDFIL# 


;Find the prompt file 


LD 


DE,FNFMSG 


! MOV 


DX,&FNFMSG 


jPoint to no file msg 


LD 


A,B 


1 OR 


AL,AL 


;Was file found? 


OR 


A 








JR 


NZ, ABORT 


1 JNZ 


ABT 


;If no, abort 


LD 


DE,OSZMSG 


I MOV 


DX,&OSZMSG 


;Point to oversize msg 


LD 


HL,007DH 


1 MOV 


BX,&0x007D 


;Check file size 


LD 


A,(HL) 


1 CMP 


BYTE [BX],=17 


;Too many records? 


CP 


17 








JR 


NC ,ABORT 


1 JNC 


ABT 


;If yes, skip 


INC 


HL 


1 MOV 


AL,1[BX] 


;Way too many records? 


LD 


A,(HL) 








INC 


HL 








OR 


(HL) 


1 OR 


AL,2[BX] 




JR 


NZ, ABORT 


1 JNZ 


ABT 


;If yes, skip 


CALL NEWUSR## 


i CALL NEWUSR# 


;Move to specified user 


LD 


DE,005CH 


1 MOV 


DX,&0x005C 


;Open the file 


LD 


C,i5 


! MOV 


CL,=15 




CALL 


0005H 


! INT 


224 




LD 


DE ,PMTSTR 


1 MOV 


DX,&PMTSTR 


jPoint to DMA buffer 


LD 


B,16 


! MOV 


CX,=16 


;Set count 


LOOPl : PUSH 


BC 


1 LPl: PUSH 


CX 


;Save count 


PUSH 


DE 


PUSH 


DX 


;Save DMA address 


LD 


C,26 


MOV 


CL,=26 


;Set it 


CALL 


0005H 


INT 


224 




LD 


DE,005CH 


MOV 


DX,&0x005C 


;Read a record 


LD 


C,20 


MOV 


CL,=20 




CALL 


0005H 


INT 


224 




POP 


HL 


POP 


DX 


;Restore DMA address 


LD 


DE,128 


ADD 


DX,=128 


;Add offset 


ADD 


HL,DE 








EX 


DE,HL i 








POP 


BC i 


POP 


CX 


;Restore Count 


OR 


A 1 


OR 


AL,AL 


;Was it a good read? 


JR 


NZ, LSTREC 1 


JNZ 


LREC 


;If no, exit loop 


DJNZ 


LOOPl 1 


LOOP 


LPl 


;Do next record 


LSTREC: LD 


DE,005CH ! 


LREC: MOV 


DX,&0x005G 


;Close the file 


LD 


C,16 1 


MOV 


CL,=16 




CALL 


0005H 1 


INT 


224 




CALL OLDUSR## | 


CALL 


OLDUSR# 


;Return to original user 


LD 


A,-l 1 


MOV 


AL,=1 


;Set long-prompt flag 


CALL CHKPMT## | 


CALL CHKPMT# 


jProcess file as string 


JR 


EXIT 1 


JMP 


EXIT 


;Skip 


ABORT : PUSH 


DE 1 


ABT: PUSH 


DX 


jSave message pointer 


LD 


DE,FILMSG I 


MOV 


DX,&FILMSG 


jPrint file message 


LD 


C,9 1 


MOV 


CL,=9 




CALL 


0005H 1 


INT 


224 




CALL PRTFIL## I 


CALL 


PRTFIL# 


; Print filename 


POP 


DE 1 


POP 


DX 


;Restore message pointer 


PRINT: LD 


C,9 I 


PRT : MOV 


CL,=9 


;Display the message 


CALL 


0005H 1 


INT 


224 




EXIT : JP 


OOOOH 1 


EXIT: MOV 
INT 


CL,=0 
224 


;Exit to o/s 
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END 



END 



Program to beep the console or the printer three times. 

Copyright (C) 1985, R. Roger Breton 
Author: R, Roger Breton 
Version: 2.20 
Dated: 05 December 1985 





NAME 


('BEEP') 1 




MODULE "BEEP" 




.Z80 












DSEG 






LOC 


Data# 








PCLOCK: 


:BYTE 


8 


LSTFLG: 


DB 


1 


LSTFLG : 


BYTE 







CSEG 






LOC 


Code# 




JP 


BEGIN 1 








PCLOCK : 


:DB 


6 ■ 1 








BEGIN : 


CALL 


LCHECK 




CALL 


LCHECK 




CALL 


RING 




CALL 


RING 




CALL 


WAIT 




CALL 


WAIT 




CALL 


RING 




CALL 


RING 




CALL 


WAIT 




CALL 


WAIT 




CALL 


RING 




CALL 


RING 




JP 


OOOOH 




MOV 
INT 


CL,=0 
224 


LCHECK : 


LD 
LD 


HL,0080H 
A,(HL) 


LCHECK : 


MOV 


BX,&0x0080 




CP 







CMP 


BYTE [BX],=0 




RET 


Z 




JZ 


DONE 


LOOPl: 


INC 
LD 


HL 
A,(HL) 


LPl: 


INC 


BX 




CP 







CMP 


BYTE [BX],=0 




RET 


Z 




JZ 


DONE 




CP 






CMP 


BYTE [BX],=59 




JR 


NZ, LOOPl 




JNZ 


LPl 


LOOP 2 : 


INC 
LD 


HL 
A,(HL) 


1 LP2: 


INC 


BX 




CP 







CMP 


BYTE [BX],=0 




RET 


Z 




RZ 


DONE 




AND 


5FH 




AND 


BYTE [BX],=0x5F 




CP 


'L' 




CMP 


BYTE [BX],=76 




JR 


NZ,L00P2 




JNZ 


LP2 




LD 


A,-l 




MOV 


BYTE LSTFLG, =1 




LD 


(LSTFLG), A 










RET 




1 DONE 


. RET 




RING: 


LD 


E,7 


IRING: 


MOV 


DL,=7 




LD 


C,2 




MOV 


GL,=2 




LD 


A, (LSTFLG) 




CMP 


BYTE LSTFLG, =0 




CP 












; Program ID 
;Zilog mnemonics 

; Locate in data segment 
;Processor clock rate 
;List flag 

; Locate in code segment 
;Skip patch points 
;Processor clock rate 

jCheck for list option 

jRing the bell 

;Wait 

;Ring it again 

;Wait 

;Ring it one last time 

;Exit to o/s 



Point to command tail 

Get 1st character 

Is there a cmd tail? 

If no, done 

Point to next chr 

Get it 

End of command tail? 

If yes, done 

Semicolon? 

If no, try again 

Point to next chr 

Get it 

End of command tail? 

If yes, done 

Make it upper-case 

Is it an "L"? 

If no, try again 

Set the list flag 

;Done 

;Get bell code 
;Preset for console 
;Is list flag set? 
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JR 


Z,RCON 




JZ 


RCON 




LD 


C,5 




MOV 


CL,=5 


RCON: 


CALL 
RET 


0005H 


RCON: 


INT 
RET 


224 


WAIT: 


LD 


A,(PCLOCK) 


WAIT: 


MOV 


AL,PCLOCK 


WTOLP: 


LD 


C,192 


OLP: 


MOV 


DL,=194 


WTMLP: 


LD 


B,121 


MLP: 


MOV 


CX,=101 


WTILP: 


NOP 




ILP: 


NOP 






DJNZ 


WTILP 




LOOP 


ILP 




DEC 


C 




DEC 


DL 




JR 


NZ,WTMT.P 




JNZ 


MT.P 




DEC 


A 




DEC 


AL 




JR 


NZ,WTOLP 




JNZ 


OLP 




RET 






RET 






END 






END 





;If no, skip 

;Set for list device 

J Send the bell 

;Done 

;Set outer loop count 

;Set middle loop count 

;Set inner loop count 

;Waste a little time 

;Do inner loop 

;Dec middle loop counter 

;Do middle loop 

;Dec outer loop counter 

;Done 



Program to clear the console screen 

Copyright (C) 1985, R. Roger Breton 
Author: R. Roger Breton 
Version: 2.20 
Dated: 03 December 1985 



NAME CCLS') 
.Z80 



CSEG 

JP BEGIN 
DB 
CLSSTR::DB 26,'$$$$$$$$$$$$' 

BEGIN: LD DE,CLSSTR 
LD C,9 
CALL 000 5H 
JP OOOOH 



END 



MODULE "CLS" 



LOC Data# 
BYTE 
CLSSTR::BYTE 26 ,"$$$$$$$$$$$$" 



LOC Code# 



MOV DX,&CLSSTR 

MOV CL,=9 

INT 224 

MOV CL,=0 

INT 224 

END 



; Program ID 
;Zilog mnemonics 

; Locate in data segment 
; Dummy flag byte 



; Locate in code segment 

;Skip 

;Dummy flag byte 

;Clear-screen string 

; Clear the screen 
;Exit to o/s 



If -Group subroutine: CMDLST 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME CSUBIFl') 
.Z80 



MODULE "SUBIFl" 



; Program ID 
;Zilog mnemonics 
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DSEG 




1 


LOC 


Data# 


MCLMSG: 


DB 


7, 13, 10, 'Mis sing command 


list. ',13, 10,'$' 








1 MCLMSG: 


BYTE 


"\7\r\nMi88ing c 




CSEG 






LOC 


Code# 


CMDLST: 


:LD 


B,A 










LD 


HL,0081H 


1 CMDLST: 


:MOV 


BX,&0x0081 




LD 


C ' 








LOOPIA: 


LD 


(HL),C 


1 LPIA: 


MOV 


BYTE [BX],=32 




INC 


HL 




INC 


BX 




LD 


A,(HL) 










CP 







CMP 


BYTE [BX],=0 




JR 


Z, ENDCT 




JZ 


NDCT 




CP 


9 




CMP 


BYTE [BX],=9 




JR 


Z, LOOPIA 




JZ 


LPIA 




CP 


C 




CMP 


BYTE [BX],=32 




JR 


Z, LOOPIA 




JZ 


LPIA 


LOOPIB: 


LD 


(HL),C 


LPIB: 


MOV 


BYTE [BX],=32 




INC 


HL 




INC 


BX 




LD 


A,(HL) 










CP 







CMP 


BYTE [BX],=0 




JR 


Z, ENDCT 




JZ 


NDCT 




GP 


9 




CMP 


BYTE [BX] i=9 




JR 


NZ, LINTAB 




JNZ 


NTAB 




LD 


(HL),C 




MOV 


BYTE [BX],=32 


LINTAB: 


CP 


C 


NTAB: 


CMP 


BYTE [BX],=32 




JR 


NZ, LOOP IB 




JNZ 


LPIB 




LD 


A,B 










LD 


B,0 










OR 


A 




OR 
MOV 


AL,AL 
AL,=0 




JR 


NZ, LOOPIA 




JNZ 


LPIA 


LOOP 2: 


INC 
LD 


HL 
A,(HL) 


LP2: 


INC 


BX 


LOOPS : 


CP 





LP3: 


CMP 


BYTE [BX],=0 




JR 


Z, ENDCT 1 




JZ 


NDCT 




CP 


-r 1 




CMP 


BYTE [BX],=124 




JR 


NZ,L00P2 




JNZ 


LP2 




INC 


HL 




CMP 


BYTE 01[BX],=124 




LD 


A,(HL) 










DEC 


HL 










CP 


-r 1 










JR 


Z, SEPCHR 1 




JZ 


SEP 




LD 


(HL),'\' 1 




MOV 


BYTE [BX],=92 




JR 


L00P2 1 




JMP 


LP2 


SEPCHR : 


LD 


(HL),' ' 1 


SEP: 


MOV 


BYTE [BX],=32 


L00P4: 


INC 
LD 


HL i 
A,(HL) 1 


LP4: 


INC 


BX 




CP 


-r 1 




CMP 


BYTE [BX],=124 




JR 


Z,L00P4 1 




JZ 


LP4 




JR 


L00P3 i 




JMP 


LP3 


ENDCT: 


LD 
LD 


(HL),0 1 
A,L 1 


NDCT: 


MOV 


BYTE [BX],=0 




SUB 


129 1 




SUB 


BX, =0x0081 




LD 


(0080H),A 1 




MOV 


0x0080, BL 



;Locate in data segment 



Locate in code segment 

Save the IFCHR flag 

Point to cmd tail space 

Get a space 

Space the character 

Point to the next one 

Get it 

End of command tail? 

If yes, skip 

Tab? 

If yes, space it/do nxt 

Space? 

If yes, do next chr 

Space the character 

Point to the next one 

Get it 

End of command tail? 

If yes, skip 

Tab? 

If no, skip 

Space it 

Space? 

If no, space it /do next 

Get IFCHR flag 

Clear it 

Was IFCHR flag set? 

Clear it anyway 

If yes, do it all again 

Point to next character 

Get it 

End of command tail? 

If yes, skip 

Separator? 

If no, do next chr 

Next chr a separator? 



;If yes, skip 

;Convert separator 

;Do next character 

;Replace with a space 

;Do next character 

; Separator? 

;If yes, bypass it 

;Back to the main loop 

;Mark end of cmd tail 

;Get position 

;Get length 

;Set length 
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LD 


HL,0080H 




MOV 


BX,&0x0080 ; 


LOOPS: 


INC 
LD 


HL 
A,(HL) 


LPS: 


INC 


BX ; 




CP 







CMP 


BYTE [BX],=0 ; 




JR 


Z, NOLIST 




JZ 


NLST : 




CP 


f f 




CMP 


BYTE [BX],=32 ; 




JR 


NZ, LDSEP 




JNZ 


LDSP ; 




JR 


LOOPS 




JMP 


LPS ; 


NOLIST : 


LD 
LD 
RET 


DE,MCLMSG 
A,-l 


NLST: 


MOV 
RET 


DX,&MCLMSG ; 


LDSEP: 


CP 


'V 


LDSP: 


CMP 


BYTE [BX],=92 ; 




JR 


NZ,DONE 




JNZ 


DONE ; 




LD 


(HL)/ ' 




MOV 


BYTE [BX],=32 ; 




LD 


HL,0081H 




MOV 


BX, =0x0081 ; 




LD 


(HL) ,A 




MOV 


BYTE [BX],=92 ; 


DONE: 


XOR 

RET 

END 


A 


DONE: 


XOR 

RET 

END 


DX,DX ; 



If-Group subroutines: NEWUSR, OLDUSR 

Copyright (C) 198S, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ('SUBIF2') 
.Z80 

CSEG 
NEWUSR: :LD A, (T14FLG##) 

OR A 
RET Z 
LD A,(SPCUSR##) 

BIT 7 ,A 

RET NZ 

LD E,A 

LD C,32 

CALL 000 SH 
RET 

OLDUSR: :LD A,(T14FLG##) 

OR A 

RET NZ 

LD A,(SPCUSR##) 

BIT 7 ,A 

RET NZ 

LD A,(CURUSR##) 

I 



MODULE "SUB IF 2" 

LOC Code# 

NEWUSR: :CMP BYTE T14FLG#, 

JNZ __RET 

TEST BYTE SPCUSR#,^ 

JNZ _RET 
MOV DL,SPCUSR# 
MOV CL,=32 
INT 224 
RET : RET 

OLDUSR: :CMP BYTE T14FLG#,= 
JNZ __RET 
TEST BYTE SPCUSR#,= 
JNZ __RET 
MOV DL,CURUSR# 



Point to command tail 

Point to next character 

Get it 

End of command list? 

If yes, skip 

Other than a space? 

If yes, skip 

Check next character 

Point to missing msg 

Set error return flag 

Done 

Leading separator? 

If no, done 

47I.U.X J. a Op owe 

Point to 1st list chr 
Stuff leading separator 
Clear error return flag 
Done 



; Program ID 
;Zilog mnemonics 

; Locate in code segment 
=1 ; Vers ion 1.4x? 

;If no, done 

=0x80 jWas user specified? 

;If no, done 

;Move to specified user 

;Done 

=1 J Vers ion 1 .4x? 

;If no, done 
=0x80 ;Was user prev changed? 

;If no, done 

;Move to original user 
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LD E,A 
LD C,32 
CALL 0005H 
RET 

END 



MOV CL,=32 
INT 224 
_RET : RET 

END 



;Done 



If-Group subroutines: TSTFIL, FNDFIL, PRTFIL 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



MODULE "SUBIF3" 





NAME 


('SUBIF3') 1 




.Z80 






DSEG 




NFSMSG: 


DB 


7, 13, 10, 'No 


AFLMSG: 


DB 


7,13,10,'Amb 


NPUMS€: 


DB 


7,13,10, 'Non 


PRVFLG: 


DB 


1 
1 


T14FLG: 


:DB 


1 


SPCUSR : 


:DB 


80H 1 


CURUSR : 


:DB 

CSEG 


l< 


TSTFIL: 


:LD 


DE, NFSMSG I' 




LD 


HL,005DH 1 




LD 


A,(HL) 1 




CP 


•» ^ 1 




RET 


z 1 




LD 


DE, AFLMSG I 




LD 


k/r 1 




LD 


B,ll 1 


TFLOOP : 


CP 


(HL) 1. 




RET 


z 1 




INC 


HL 1 




DJNZ 


TFLOOP 1 




LD 


A,(0050H) 1 




SUB 


0C3H 1 




RET 


NZ 1 




LD 


C,12 1 




CALL 


0050H 1 




BIT 


7,B 1 




JR 


Z, TFSKIP I 




LD 


A,-l 1 




LD 


(PRVFLG), A 1 


TFSKIP: 


LD 


A,C 1 




CP 


14H 1 




RET 


NZ 1 




LD 


A,-l 1 



; Program ID 
;Zilog mnemonics 



LOC Data# ;Locate in data segment 

filename specif ied. ',13,10,'$' 

NFSMSG: BYTE "\7\r\nNo filename specif ied.\r\n$" 
iguous filename specified. ',13,10,'$' 

AFLMSG: BYTE "\7\r\nAmb iguous filename specif ied.\r\n$" 
-priviledged user. ',13,10,'$'' 

NPUMSG: BYTE "\7\r\nNon-priviledged user.\r\n$" 
PRVFLG: BYTE ; Priviledged user flag 

T14FLG::BYTE ;Version 1 .4x flag 

SPCUSR:: BYTE 0x80 ; Specified user area 

CURUSR: :BYTE ;Current user area 



LOC Code# 

TSTFIL: :MOV DX,&NFSMSG 

MOV BX,&0x005D 

CMP BYTE [BX],=32 

JZ __RET 

MOV DX,&AFLMSG 

MOV CX,=11 

LP: CMP BYTE [BX],=63 

JZ RET 

INC BX 
LOOP LP 



MOV CL,=12 

INT 223 

TEST CH,=0x80 

JZ ^SKP 

MOV BYTE PRVFLG, =1 

^SKP: CMP CL,=0xl4 

JNZ _J)ONE 

MOV BYTE T14FLG,=1 



Locate in code segment 

Point to no file msg 

Point to 1st fn chr 

Get it 

Was filename specified? 

If no, done 

Point to ambiguous msg 

Get a question mark 

Set count 

Is fn/ft ambiguous? 

If yes, done 

Point to next character 

Do 'em all 

Get T-f unction jump 

Version 1.30 or later? 

If no, done 

Get version number 

;Is user priviledged? 

;If no, skip 

;Set priviledged flag 

;Is this version 1.4x? 

;If no, done 

;Set version 1 .4x flag 
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LD 


(T14FLG),A 


LD 


HL,006BH 


LD 


A,(HL) 


OR 


A 


RET 


Z 


DEC 


HL 


DEC 


HL 


LD 


A,(HL) 


LD 


(SPCUSR),A 


LD 


E,-l 


LD 


C,32 


CALL 


0005H 


LD 


(CURUSR) ,A 


LD 


B,A 


LD 


A,(SPCUSR) 


SUB 


B 


RET 


Z 


LD 


DE,NPUMSG 


LD 


A,(PRVFLG) 


SUB 


-1 



RET 

FNDFIL::CALL NEWUSR## 
LD DE,005CH 
LD C,35 
CALL 000 5H 
PUSH AF 
CALL OLDUSR## 
POP AF 
RET 

PRTFIL::LD A,(SPCUSR) 
BIT 7 ,A 



JR 


NZ,PFNUSR 


JNZ 


NUSR 






MOV 


AL,SPCUSR 


LD 


E,0 


MOV 


DL,=0 


CP 


10 


CMP 


AL,=10 


JR 


C, PFPRTU 


JC 


PRTU 


LD 


E/1' 


MOV 


DL,=49 


SUB 


10 


SUB 


AL,=10 


CP 


10 


CMP 


AL,=10 


JR 


C, PFPRTU 


JC 


PRTU 


INC 


E 


INC 


DL 


SUB 


10 


SUB 


AL,=10 


CP 


10 


CMP 


AL,=10 


JR 


C, PFPRTU 


JC 


PRTU 


INC 


E 


INC 


DL 


SUB 


10 


SUB 


AL,=10 


PFPRTU: PUSH 


AF 


PRTU: PUSH AX 


XOR 


A 


OR 


DL,DL 


CP 


E 






JR 


Z,PFPRT2 i 


JZ 


PRT2 


CALL 


PFPCHR 1 


CALL 


PCHR 


PFPRT2: POP 


AF 1 


PRT2: POP 


AX 



CMP BYTE 0x006B,=0 ;Was user specified? 



JZ __DONE 
MOV AL, 0x006 9 



MOV SPCUSR,AL 

MOV DL,=255 

MOV CL,=32 

INT 224 

MOV CURUSR ,AL 

SUB AL SPCUSR 



JZ _J)ONE 
MOV DX,&NPUMSG 
CMP BYTE PRVFLG,«1 

__DONE: XOR DX,DX 
__RET : RET 

FNDFIL;:CALL NEWUSR# 

MOV DX,&0x005C 
MOV CL,=35 
INT 224 
PUSH AX 
CALL OLDUSR# 
POP AX 
RET 

PRTFIL;:TEST BYTE SPCUSR, =0x80 



;If no, done 
;Get user area 



jSave it 

;Get current user 



;Save it 



'Same as specified user? 



;If yes, done 

; Point to non-priv msg 

jPriviledged? 

;Clear error msg pointer 
;Done 

;Move to specified user 
jCheck for file present 



Save error code 
Move to original user 
Restore error code 
Done 

Was user specified? 

If no , skip 

Get user area code 

Preset for 0-9 

User area less than 10? 

If yes, skip 

Preset for 10-19 

Subtract 10 

Less than 20? 

If yes, skip 

Preset for 20-29 

Subtract 10 

Less than 30? 

If yes, skip 

Preset for 30 or 31 

Subtract 10 

Save the value 

User 0-9? 

If yes, skip 
Print first digit 
Restore value 
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ADD A, 48 




ADD AL,=48 


;Make it ASCII 




LD E,A 




MOV DL,AL 


;Print second digit 




CALL PFPCHR 




CALL PCHR 




PFNUSR: 


LD HL,005CH 
LD A,(HL) 
OR A 


1 NUSR : 


CMP BYTE Ox005C,=0 


jDefault drive? 




JR Z, PFNDRV 




JZ NDRV 
MOV DL, 0x0050 


;If yes, skip 

;Get the drive code 




ADD A, 64 




ADD DL,=64 


;Make it ASCII 




CALL PFPCHR 




CALL PCHR 


; Print it 




JR PFACOL 




JMP ACOL 


;Skip 


PFNDRV: 


LD A,(SPCUSR) 
BIT 7 ,A 


I NDRV: 


TEST BYTE SPCUSR,=0x80 


;Was user specified? 




JR NZ, PFNDRU 




JNZ NDRU 


;If no, skip 


PFACOL: 


LD E/:' 
CALL PFPCHR 


ACOL: 


MOV DL,=58 
CALL PCHR 


; Print a colon 


PFNDRU : 


LD HL,005CH 


NDRU: 


MOV BX,&0x005C 


; Point to the FCB 




LD B,8 




MOV CX,=8 


;Set the count 




LD A/ ' 






;Set the compare byte 




CALL PFFNFT 




CALL PFNT 


; Print the filename 




LD E/.' 




MOV DL,=46 


; Print a period 




CALL PFPCHR 




CALL PCHR 






LD B,3 




mv CX,=3 


;Set count 




CALL PFFNFT 




CALL PFNT 


;Print the filetype 




RET 




RET 


;Done 


PFFNFT : 


INC HL 


PFNT: 


INC BX 


;Point to next character 




LD E,(HL) 




MOV DL,[BX] 


;Get it 




RES 7,E 




AND DL,=0x7F 


;Clear any attributes 




CP E 




CMP DL,=32 


;Is it a space? 




JR Z, PFNTSP 




JZ NTSP 


;If yes, skip 




CALL PFPCHR 




CALL PCHR 


jPrint it 


PFNTSP: 


DJNZ PFFNFT 


NTSP: 


LOOP PFNT 


;Repeat for all ft chrs 




RET 1 




RET 


;Done 


PFPCHR : 


PUSH HL 1 


PCHR: 


PUSH BX 


;Save pointer 




PUSH EC 1 




PUSH CX 


;Save counter 




PUSH AF 1 






;Save compare byte 




LD C,2 1 




MOV CL,=2 


; Print the character 




CALL 0005H | 




INT 224 






POP AF 1 






;Restore compare byte 




POP BC 1 




POP CX 


;Restore counter 




POP HL 1 




POP BX 


;Restore pointer 




RET 1 




RET 


;Done 




END 1 




END 





If -Group subroutines: CHKPMT, GETCHR 

Copyright (C) 1985, 1986, R. Roger Breton 

Author: R. Roger Breton 

Version: 2.20 

Dated: 26 January 1986 



NAME ('SUBIF4') 
.Z80 



MODULE "SUB IF 4" 



J Program ID 
;Zilog mnemonics 
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DSEG 
ECOMSG: DB 



I LOG Data# 
',13,10/$' 

I ECOMSG: BYTE " \r\n$" 

ILPTFLG: BYTE 



CHKPMT 



CPLUPl 



CPLPMT i 



CPASTR : 



CPPSTR : 



CSEG 
:PUSH 
LD 
OR 
JR 
LD 
LD 
CP 

TTl 
OSS. 

INC 

LD 

CP 

JR 

CP 

JR 

INC 

LD 

CP 

JR 

CALL 

CP 

JR 

CALL 

JR 

CP 

JR 

CALL 

CP 

JR 

CALL 

CP 

JR 



AF 

HL,PMTSTR## 

A 

NZ, CPLPMT 

HL,0080H 

A,(HL) 



rr r«Ti»TTmrp 

£>,v/rnrnx 

HL 

A,(HL) 

Z,CPNPMT 

HL 

A,(HL) 
^ *• ^ 

NZ, CPASTR 
CPPCLS 

NZ, CPPSTR 

CPNBEL 

CPCSTR 

NZ, CPPSTR 
CPNBEL 

NZ, CPPSTR 
CPPCLS 

Z,CPNPMT 



CPENDP 



LD BC , 2048 

POP AF 

OR A 

JR NZ,CPENDL 

LD BC,76 

PUSH BC 

LD DE,PMTSTR##+02 

LDIR 

POP BC 

LD A,0 

LD HL,PMTSTR## 

CPIR 

OR B 

JR Z, CPENDP 

DEC HL 

LD (HL),' ' I ENDPi 



CHKPMT 



LPl: 



LOG 


Code# 


MOV 


LPTFLG ,AL 


MOV 


BX,&PMTSTR# 


OR 


AL,AL 


JNZ 


LPMT 


MOV 


BX,&0x0080 


CMP 


BYTE [BX],=( 


JZ 


NFMT 


INC 


BX 



LPMT: 



ASTR 



PSTR; 



CMP BYTE [BX],=0 

JZ _NPMT 

CMP BYTE [BX],=59 

JNZ L P ± 

INC BX 

CMP BYTE [BX],=94 

JNZ __ASTR 

CALL _CLS 

CMP BYTE [BX],=42 

JNZ PSTR 

CALL NBEL 

JMP ___PSTR 

CMP BYTE [BX],=42 

JNZ _PSTR 

CALL ___NBEL 

CMP BYTE [BX],=94 

JNZ _J*STR 

CALL _CLS 

CMP BYTE [BX],=0 

JZ NPMT 

MOV SI,BX 
MOV CX,=2048 

CMP BYTE LPTFLG, =0 

JNZ ENDL 

MOV CX,=76 
PUSH CX 

MOV DI,&PMTSTR#+2 

REP MOVS BYTE 

POP CX 

MOV AL,=0 

MOV DI,&PMTSTR# 

REPNZ SCAS BYTE 

OR CX,CX 

JZ __ENDP 

DEC DI 

MOV BYTE [DI],=32 



; Locate in data segment 



; Long-prompt flag 

Locate in code segment 

Save long -prompt flag 

Point to prompt string 

Long or short prompt? 

If long, skip 

Point to command tail 

Get length 

Is length zero? 

xj. so, no promptstnng 

Point to next character 

Get it 

End of command tail? 

If so, no promptstring 

Is it a semicolon? 

If no, keep looking 

Get next character 

1st chr a circumflex? 

If no, skip 

Clear the screen 

Is 2nd chr an asterisk? 

If no, do promptstring 

Turn off bell 

Do promptstring 

Is 1st chr an asterisk? 

If no, do promptstring 

Turn off bell 

2nd chr a circumflex? 

If no, do promptstring 

Clear the screen 

End of prompt? 

If so, no promptstring 

Set source to pointer 

Preset long— prompt cnt 

Restore PROMPT flag 

Long or short prompt? 

If long, skip 

Set short-prompt count 

Save count 



;Set dest to pmtstr 

jTransfer promptstring 

;Restore count 

;Get a null 

;Set scan to pmtstr 

jFind the end 

;End of count? 

;If yes, skip 

; Point to the end 

;End promptstring there 
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INC 


HL 1 












LD 


(HL)/ ' 1 




MOV 


BYTE 1[DI],=32 






INC 


HL 1 












LD 


(HL),'$' 1 




MOV 


BYTE 2[DI],=36 




CPENDL: 


LD 
LD 


A,0 1 
(PMTSPT##) ,A 


ENDL: 


MOV 


BYTE PMTSPT#,=0 


; Clear split-prompt flag 


CPNPMT : 


LD 


A,(PMTBEL##) 
















NPMT: 


CMP 


BYTE PMTBEL#,=0 


;Is bell flag set? 




OR 


A 1 












JR 


Z, CPSBEL 1 




JZ 


SBEL 


;If no, skip 




LD 


E,7 1 




MOV 


DL,=7 


;Beep the console 




LD 


C,2 1 




MOV 


CL,=2 






CALL 


0005H 1 




INT 


224 




CPSBEL: 


LD 
LD 

OR 


DE,PMTSTR##| 
A,(PMTSPT##) 

A 1 


SBEL: 


MOV 
CMP 


DX,&PMTSTR# 
BYTE PMTSPT#,=0 


; Point to prompt string 
; Split -prompt flag set? 




JR 


Z, CPPPMT 1 




JZ 


PPMT 


;If no, skip 




LD 


C,9 1 




MOV 


CL,=9 


; Print prompts tring 




CALL 


0005H 1 




INT 


224 






CALL PRTFIL## | 




CALL PRTFIL# 


; Print the filename 




LD 


DE,PMTSTX##| 




MOV 


DX,&PMTSTX# 


;Point to rest of pstr 


CPPPMT: 


LD 


C>9 1 


PPMT: 


MOV 


CL,=9 


; Print it 




CAT.T. 


0005H 1 




INT 


224 






RET 






RET 




;Done 


CPPCLS: 


PUSH 


HL ! 


CLS: 


PUSH 


BX 


;Save the pointer 




LD 


DE,CLSSTR##| 




MOV 


DX,&CLSSTR# 


;Clear the screen 




LD 


C,9 1 




MOV 


CL,=9 






CALL 


0005H 1 




INT 


224 






POP 


HL 1 




POP 


BX 


^Restore the pointer 




JR 


CPSSKP 1 




JMP 


SSKP 


;Skip 


CPNBEL : 


LD 
LD 


A,0 1 
(PMTBEL##),A 


NBEL: 


MOV 


BYTE PMTBEL#,=0 


;Turn off bell 


CPSSKP: 


LD 


(HL),13 1 


SSKP : 


MOV 


BYTE [BX],=13 


; Overwrite with a CR 




INC 


HL 1 




INC 


BX 


jPoint to next character 




LD 


A,(HL) 1 








;Get it 




RET 






RET 




;Done 


GETCHR: 


:LD 


E,-l 1 


GETCHR: 


:MOV 


DL,=255 


;Look for an input chr 




LD 


C,6 1 




MOV 


CL,=6 






CALL 


0005H 1 




INT 


224 






OR 


A 1 




OR 


AL,AL 


;Was a chr waiting? 




JR 


Z, GETCHR 1 




JZ 


GETCHR 


;If no, look again 




AND 


5FH 1 




AND 


AL,=0x5F 


;Make upper-case ASCII 




CP 


'Y' 1 




CMP 


AL,=89 


;Is it a "Y"? 




JR 


Z, ECHOY I 




JZ 


ECOY 


;If yes, skip 




LD 


A/N' j 




MOV 


AL,=78 


;Get an "N" 


ECHOY : 


LD 


(ECOMSG),A 1 


ECOY: 


MOV 


ECOMSG,AL 


;Save it 




LD 


DE,ECOMSG 1 




MOV 


DX,&ECOMSG 


;Echo it 




LD 


C,9 1 




MOV 


CL,=9 






CALL 


0005H 1 




INT 


224 






LD 


A,(ECOMSG) 1 




MOV 


AL,ECOMSG 


;Restore the character 




RET 






RET 




;Done 




END 






END 
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ADJUSTING OLDER DRIVERS TO VERSION 1.43 



R. Roger Breton and John E. Lauber 

As those of you upgrading from earlier versions know, the IS-bit drivers for 
version 1.43 require some changes. The area of primary concern is the method 
used to implement a poll routine. In the older versions (prior to 1.43), a 
three-word semaphore was required in the data segment and a two-word link was 
required in the code segment immediately ahead of the poll routine, as show in 
this sample: 



LOG 



Data# 



POLSPH: WORD 


0x0000 


PSPH: WORD 


PSPH 


WORD 


PSPH 



; Locate in data segment 
; Event semaphore 



LOG 

MOV 
GALL 

GALL 

MOV 

GALL 



Gode# 

DX,&POLLNK 
LNKPOL# 

POLRTN 

BX,&POLSPH 

WAIT# 



; Locate in code Segment 

;Get linkage address 
;Actvate the poll routine 

;Optional pre-test 
;Get semaphore address 
:Wait for the event 



POLLNK: 


WORD 


0x0000 




WORD 


0x0000 


POLRTN: 


IN 


AL,=STAT 




TEST 


AL,=MASK 




JZ 


POLXIT 


) 


MOV 


BX,&POLSPH 




GALL 


SIGNAL# 


) 


MOV 


BX,&POLLNK 




CALL 


UNLINK# 


POLXIT : 


RET 





In the 1 .43-and-later environment, 
segment, with a pointer to the poll 



LOG 



Data# 



POLSPH : 


WORD 


0x0000 


PSPH: 


WORD 


PSPH 




WORD 


PSPH 


POLLNK: 


WORD 


0x0000 




WORD 


0x0000 




WORD 


&POLRTN 



;Poll routine linkage 

;Get device status 
;Did event occur? 
;If no, done 

;Get semaphore address 
; Signal the event 

;Get linkage address 
;Deactivate poll routine 

;Done 

the poll linkage must be moved to the data 
routine appended: 

;Locate in data segment 

; Event semaphore 

;Poll routine linkage 



LOG 



Gode# 



;Locate in code Segment 
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MOV 
CALL 

CALL 

MOV 

CALL 



DX,&POLLNK 
LNKPOL# 

POLRTN 

BX,&POLSPH 

WAIT# 



;Get linkage address 
;Actvate the poll routine 

;Optional pre-test 
;Get semaphore address 
;Wait for the event 



POLRTN: IN 

TEST 
JZ 

MOV 
CALL 

MOV 
CALL 

> 

POLXIT: RET 



AL.^STAT 
AL,"MASK 
POLXIT 

BX,&POLSPH 
SIGNAL# 

BX,&POLLNK 
UNLINK* 



;Get device status 
;Did event occur? 
;If no, done 

;Get semaphore address 
; Signal the event 

;Get linkage address 

; Deactivate poll routine 

;Done 



This whole arrangement would normally require that two sets of drivers be kept, 
the older style and the 1.43-and- later style. John Lauber has developed a 
method of creating vers ion- independent drivers that is both simple and elegant. 
His method operates around a byte that is set to 00 in earlier versions and to 
FF in version 1.43+, thus providing an on-the-fly method of controlling routing. 
His code for so doing may be found in the following extract from an actual 
driver, and consists of the subroutines LNKPLC and UNLNKC and a "different" 
method of specifying the poll linkages: 



LOG Data# 

parallel port Semaphore 

POTSPH: WORD 
_PARL: WORD __PARL 
WORD PARL 



; locate in data segment 



; semaphore count 



LOG 



Code# 



PAROUT::MOV 


DX,=PORTB 


IN 


AX,DX 


AND 


AH,«1 


MOV 


AH,CL 


JNZ 


PAROT 


MOV 


DX,=PORTA 


OUT 


DX,AX 


RET 




> 

PAROT:MOV 


POCHAR.AH 


MOV 


DX,&PARPL 


CALL 


LNKPLC 



locate in code segment 

get status port 
check status 
is it ready? 
get output char 
poll if busy 

; get data port 
; send data byte 



; save the output char. 
; point to poll routine 
; link it on 



TurboDOS Users' Group Newsletter, Volume 3, Number 1 



Page 49 



PARPL: 



MOV 

JMP 

LOG 

WORD 

WORD 

WORD 

RELOC 

WORD 

WORD 



BX,&POTSPH 
WAIT# 

Data# 


&PARPR 






point to semaphore 
wait till output ready 

locate in data segment 

poll linkages 

poll routine entry 

locate back in code segment 

poll linkages 



PARPR: MOV 
IN 
AND 
JNZ 

MOV 
MOV 
OUT 



DX,=PORTB 
AX DX 
AH,'=1 
_PXIT 

AHjPOCHAR 
DX,=PORTA 
DX.AX 



get status port 

is it ready? 
exit if not 

get output char 
data port address 
send it 



MOV 
GALL 
MOV 
JMP 



BX,&PARPL 
UNLNKC 
BX,&POTSPH 
SIGNAL# 



remove from poll list 
signal as ready 



PXIT: RET 



; return results 



LNKPLC: MOV 


AL,GEV143# 


TEST 


ALjAL 


JNZ 


1 


MOV 


BX,DX 


MOV 


DX,4[BX] 


SUB 


DX,=4 


1: JMP 


LNKPOL# 



Link poll routine common. 

Ghecks for TurboDOS poll version global and determines proper way 

to link a poll routine. 

On entry: DX => poll linkage structure in Data segment. 

load version global 

greater than or equal vl.43? 

if so, continue 

else, move pointer to reg 

load code pointer 

adjust for linkages 

and continue routine 

Un-link poll routine common. 

Ghecks for TurboDOS poll version global and determines proper way 

to un-link a poll routine. 

load version global 

greater than or equal vl.43? 

if so, continue 

else, load code pointer 

adjust for linkages 

and continue routine 

The whole method pivots around the byte GEV143##. If this byte is GO, then the 
driver presumes 1.42 or earlier and acts accordingly. If this byte is not 00, 
then the driver presumes for 1.43 or later. The easiest method to set this byte 
is to add the module GEV143.0 to the GENeration files of all 1.43 systems. In 



UNLNKG: MOV 


AL,GEV143# 


TEST 


AL,AL 


JNZ 


1 


MOV 


BX,4[BX] 


SUB 


BX,=4 


1: JMP 


UNLINK# 
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this manner, if the module is left out, TurboDOS will link the system and set 
the label "GEV143" equal to "UndData", returning a 00 to the LNKPLC and UNLNKC 
subroutines. If the module is included, the the label "GEV143" will be hard- 
coded to FF. The source code for the GEV143 module is: 

#TITLE "TURBODOS OPERATING SYSTEM VERSION DEPENDENT VARIABLE" 

#PAGE 132,60 

> 

; Author: John E. Lauber 

MODULE "GEV143" 

; Greater than or equal to version 1.43 patchable variable. 

GEV143::BYTE OXFF ; Default to >= version 1.43 

END 

Thank you, John. 



